Help for this page

Select Code to Download

Select or download this

my @ref = qw(Red Green Yellow);
my @data = qw(Yellow Black Yellow Red White Yellow);
for my $search (@ref)
...
  }
  print "$search: [@found]\n";
}

Select or download this
```
Red: [3]
Green: []
Yellow: [0 2 5]
```