You can use a hash of arrays:

my %HoA=(
  too => [...],
  moo => [...],
  boo => [...],
);
my $i="boo"; 
my @foo=@{$HoA{$i}};
[download]

(untested)