Create bag.pl

more parsing excel with perl. oh god why...