Select Code to Download

my $return = mailoff($myvar);

...
     #do stuff
     return $vartoreturn
}

mailoff(@array);
sub mailoff
...
{
  my %hash = @_;
}