package Whatever;

sub new {
   my ($class, $options) = @_;
   $options{'a'} = 3;
   return bless $options, $class;
}

sub method {
   my ($self, $others) = @_;
   ...
}