Help for this page
#!/usr/bin/perl ... print "@answer[ map $_ - 1, grep $answer[$_] eq 'apples', 0 .. $#answer] likes apples.\n";
John apples fisherman Patrick pears blacksmith Edward cherries programmer John likes apples.