my %x = ();
$x{foo} =  [1,2,3,4,5];
print join "\n", @{$x{foo}};