Select Code to Download

this is INDEX   =>bernini

my $string = 'abcdefghijk'; 
my %match = (' '=>"bernini",bc => "Michelangelo", efg => "Raffaello",d
+e => "Caravaggio",ijk => "Tintoretto",hij=>"Leonardo",);

foreach $art (keys %match){
    print "this is INDEX $art =>",join(',',$match{$art}),"\n", if inde
+x $string,$art;
    }