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