#!/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";