Select Code to Download

Select or download this

my $string = 'abcdefghijk'; 
my %match = (bc => "Michelangelo", efg => "Raffaello",de => "Caravaggi
+o",ijk => "Tintoretto",hij=>"Leonardo",);
...
foreach $art (keys %match){
    print "this is INDEX $art =>",join(',',$match{$art}),"\n", if inde
+x my $tring,$art;
    }

Select or download this

Parentheses missing around "my" list at
    C:\Users\Alberto\Documents\NetBeansProjects\PerlProject\Perl Essen
+tials\hash_ref\partial_hash_check.pl line 48 (#1)
...
this is INDEX hij =>Leonardo
this is INDEX bc =>Michelangelo
this is INDEX ijk =>Tintoretto