my $amt = ((split(/\t/,$data))[2]);