Select Code to Download

my @array = qw(a b c d e f);
my @new_array = do_something(\@array); #<- note the "\"
...
  }
  return @new;
}

$VAR1 = a
$VAR2 = b
..etc

$VAR1 = [a,b,c,d,e,f]