my $third_col = (split /\s+/, $current_line)[2];