#! perl -w
use strict;

my @array = ("0","1","2","3");
my %hash = ("zero" => "0", "one" => "1", "two" => "2", "three" => "3");
my $aref = \@array;
my $href = \%hash;

&test($aref, $href);

sub test {
	my $one = shift;
	my $two = shift;	
	print join (' ', @$one),"\n";
	print join (' ', %$two),"\n";
	print join (' ', @$aref),"\n";
	print join (' ', %$href),"\n";
	print join (' ', @array),"\n";
	print join (' ', %hash),"\n";
	sleep 1;
}