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

##</code><code>##

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

##</code><code>##

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