#!/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 => \@_ };