Select Code to Download

#!/usr/bin/perl

...
    push @array1, 'crap';
    push @array2, 'dumb';
}

Global symbol "@array1" requires explicit package name at ./test_loop.
+pl line 18.
Global symbol "@array2" requires explicit package name at ./test_loop.
+pl line 19.
Execution of ./test_loop.pl aborted due to compilation errors.

...
my (@array1, @array2);

foreach my $item ('top', 'heavy', 'fool') {
...