my %h;

  @{$h{"bar"}} = qw( One Two Three );

  $foo = "bar";

  for ( @{ $h{$foo} } ) {