Select Code to Download

my @base = qw/foo bar/;

...
my $redup = join " ", map { "@base" } (1..5) # "foo bar foo bar ..."

# etc.