my $row;
my $val;

while ($row = <IN>)
{
$val = substr($row,0,1);
@tranAmount = substr($row,68,17);

foreach (@tranAmount) {
print "$_\n";
}
}