sub mysub { my ( $var1, $var2 ) = @_; rest of your process }
Call with: mysub($var1, $var2);