my $return = mailoff($myvar);

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