Select Code to Download

    my ($n, @list);
    ($n, @list) = @_;

my ($n, @list) = @_;

foreach my $item (@list) {
    my @tokens = split ' ', $item;
    ...