return $someval; print $someval; #### sub a { print $variable; } sub b { $variable; } #### sub a { return sprintf("%s", $_[0]); }