Select Code to Download

my @animals = qw [dog cat bird mouse rat snake horse cow
                  pig lizard lamb zebra lion elephant monkey];
...
    }
    say "$animal @scratch[-3..-1]";
}