Help for this page
my %which; ... print "$one and $two are in (@{$which{$one}}) and (@{$which{$two} +}) respectively\n"; }