#!/usr/bin/perl --
use strict;
use warnings;
my @feet = qw/ left right /;
my @shoes = qw/ loafer sneaker boot /;
my @lowers = ( \@feet, \@shoes );

## $lower{feet} is prounounced lower-of-feet
## $lower{shoes} is prounounced lower-of-shoes

my %lower = ( feet => [ @feet ], shoes => [ @shoes ] );
print "$lower{feet}[0] $lower{shoes}[0]\n";
print "$lower{feet}[1] $lower{shoes}[1]\n";
print "----\n";

for my $lower ( @lowers ){
   for my $low ( @$lower ){
      print " $low ";
   }
   print "\n";
}

print "----\n";
## while( my( $key, $value ) = each %lower ){
while( my( $lower, $of_array ) = each %lower ){
    print "$lower $_\n" for @$of_array;
}