#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd /;

my @feet = qw/ left right /;
my @shoes = qw/ loader sneaker boot /;
my @things;
dd { feet => \@feet, shoes => \@shoes, things => \@_ };




push @shoes, qw/ slippers /;
dd { feet => \@feet, shoes => \@shoes, things => \@_ };




push @things, \@feet, \@shoes;
dd { feet => \@feet, shoes => \@shoes, things => \@_ };

##</code><code>##






{
  feet   => ["left", "right"],
  shoes  => ["loader", "sneaker", "boot"],
  things => [],
}

{
  feet   => ["left", "right"],
  shoes  => ["loader", "sneaker", "boot", "slippers"],
  things => [],
}



{
  feet   => ["left", "right"],
  shoes  => ["loader", "sneaker", "boot", "slippers"],
  things => [],
}