sub my_function {

        # ...
	return (\@a, \@b, \@c);
}


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

@a = @{$a};
@b = @{$b};
@c = @{$c};