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