my $this = shift;
my $x = shift;
...