this is INDEX   =>bernini

##</code><code>##

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

##</code><code>##

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