sub getvars {
    my $profile = shift;
    my ( @vars, %evnt_nums, %prof_var_names, $last_evnt_name );

    open( my $ptk_info, '-|', "system command here" ) or die "$profile: $!\n";
    while (<$ptk_info>) {
        last if ( /^Events$/ );  # skip lines till this line is found
    }
    while (<$ptk_info>) {
        my @tkns = split;
        if ( $tkns[0] =~ /^(\d*\.\d*)0/ ) {
            $last_evnt_name = $tkns[2];
            $evnt_nums{$last_evnt_name} = $1;
        }
        push @vars, @tkns;
    }
    ... # (do other for loop, sort @vars

    return \%event_nums, \%prof_var_names, \@sorted_vars, $last_evnt_name;
}