http://qs321.pair.com?node_id=1093754

stmadalli has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I have the following code where I need to a IF Condition to check if a keys of %line is one of the values of %new.. please let me know if this is possible!
#!/usr/bin/perl use strict; use warnings; my @array=('a','b','c'); my %list=( 'a' => ["100","nuts"], 'b' => ["200","bolts"], 'c' => ["300","screws"], ); my $msg = getMsg(\@array, \list); #print $msg; sub getMsg { my $aref = shift; my $href = shift; my %line = ('100' => ["abc","xyz"] 'nuts' => ["def","lmn"] ); my @arr = @$aref; my %new = %$href; if(exists {Keys of %line contains any values of $new{a} }) #need this + condition { do something else { do something } }