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