#! /usr/bin/perl
use strict;
use warnings;

my @array1 = ( 1, 2, 3, 4, 5);
my @array2 = ( 1, 2, 3, 4, 5);

list(@array1,@array2);

sub list { 
	foreach my $c (@_) {
		print $c . " ";
	}
}

##</code><code>##

#! /usr/bin/perl
use strict;
use warnings;

my @array1 = ( 1, 2, 3, 4, 5);
my @array2 = ( 1, 2, 3, 4, 5);

list(\@array1,\@array2);

sub list { 
	foreach my $r (@_) {
		foreach my $c (@$r) {
			print $c . " ";
		}
		print "\n";
	}
}