Select Code to Download

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

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

...
  shoes  => ["loader", "sneaker", "boot", "slippers"],
  things => [],
}