Select Code to Download

use strict;
use warnings;
...
    print "\n\n Matches for <$search> = @matches\n\n";
}

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/smartmatch.pl 
Smartmatch is experimental at d:/tmp/pm/smartmatch.pl line 12.
...

Compilation finished at Tue Nov  9 22:04:30

    my %fruit = (
                 'apple'  => ['red','green'],
                 'kiwi'   => ['green'],
                 'banana' => ['yellow'],
                );