my @aFlds = split(/\t/, $line); my $last_field = $aFlds[-1]; my $next_to_last_field = $aFlds[-2];