#!/usr/bin/perl

sub foo
{
        my $a = "a";
        my @b = ("b");
        my @c = ("c");
        return ($a, \@b, \@c);
}

my ($a, $b, $c) = foo;

print "\@c "; print @$c; print "\n";
print "\@b "; print @$b; print "\n";