Select Code to Download

my $list = 'some default item';
my @list = (1, 2, 3, 4);
foreach (@list) {
    print "$list\n";
}