my $x = shift;
my $y = shift;

##</code><code>##

my $x = $_[0];
my $y = $_[1];