Select Code to Download

20100221, abc_1, 200
20100221, abc_4, 350
...
20100221, opq_2, 350
20100221, xyz_3, 100
20100221, opq_1, 230

20100221, abc, 1370
20100221, xyz, 1300
20100221, opq, 780

use strict;
use warnings;
...
while (my $line = <$in_fh>) {
  chomp($line);
  my @columns = split(',', $line, 2);