sub in
{
my $skalar=hallo;
my @array=(1,2,3);
my %hash=(a=>2,b=>3);
return (\$skalar,\@array,\%hash);
}

sub out
{
print $$_[0];
print "$_\n" for @$_[1];
print "$_=>$_[2]->{$_}\n" for keys %$_[2]:
}

my @refs=in();
out(@refs);