Select Code to Download

%hash = (name => foo,
         list => (1, 2, 3));
@array = $hash{list};
foreach(@array){print "$_\n";}

%hash = (name => foo,
         list => \(1, 2, 3));
$ref = $hash{list}
@array = @$ref;
foreach(@array) { print }