my ($x, $y) =~ /.../;
mysub($x, $y);
sub mysub {
   /.../;
   shift;
   shift;
}