Select Code to Download

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

my @list = map {[qw/foo bar blah baz/]} 1 .. 5;
splice(@$, 0, 1) for @list;