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