/.../;
mysub($1, $2);
sub mysub {
   my ($x, $y) = @_;
   /.../;
   $x;
   $y;
}