If you know which fields you want to extract say for e.g. columns 2,4 in a really large file, you can try

my ($col1, $col2) = (split(/\t/, $ham))[2,4] ;
[download]