# too much work...
my ($this, $that, $some, $other) = ($1, $2, $3, $4);

# would rather:
my ($this, $that, $some, $other) = @_;