Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
...

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

{
  feet   => ["left", "right"],
...
  $a->{things}[1] = $a->{shoes};
  $a;
}