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

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