sub calculate
{
  #do stuff
  return \@a, \@b;
}

my ($a, $b) = calculate(10,20,30);

for ( @{$a} )
{
  print "a: $_\n";
}

my @b = @{$b};
print "@b";