open(FH,'orders.csv') or die "$!";
while($line = <FH>) {
  $character = chop($line);
  print "!!!! $character ****\n";
}