#!/usr/bin/perl

use strict;

foreach my $item ('top', 'heavy', 'fool') {
	my (@array1, @array2);

	a_function($item);

	print "@array1\n";
	print "@array2\n";
}

sub a_function {
	my $item = shift;

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