my $arr = [1, 2, 3]; my @directions = qw( left right ); my @items = @{ $ref{items} };