my %VIS;
my $key;
my $value;

my $mfunds="$ENV{'HOME'}/scripts/MFUNDS.txt";
my $evst="$ENV{'HOME'}/scripts/IN_EVST_NOT_IN_NFS.txt";

open MFUND, $mfunds or die "Can not open $mfunds\n";
while ( <MFUND> ) {
        chomp;
         my $aref = [split];
        $VIS{$aref->[0]} = $aref->[1];
}

open EVST, $evst or die "Can not open config file: $evst\n";
while ( <EVST> ) {
        chomp;
         my $aref = [split];
                        if (exists($VIS{$aref->[0]}) ) {
                        print "$key, $value from  %VIS\n";

                }
}