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