sub ($self, $var, @arr) {
  ...
}

## versus

sub {
  my ($self, $var, @arr) = @_;
  ...
}