If $evst contains only one column, no need for the split:

while ( my $key = <EVST> ) {
    chomp $key;
    if (exists($VIS{$key}) ) {
        print "$key, $VIS{$key}\n";
    }
}
[download]