my $return = mailoff($myvar);

sub mailoff
{
     my $var = $_[0];
     #do stuff
     return $vartoreturn
}

##</code><code>##

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