package XYZ;

use constant {
    HASH1 => 0,
    HASH2 => 1,
}

sub new {
  my $class = shift;
  my $self = [
    { something => 'this' }, 
    { something_else => 'that' }
  ];
  return bless $self, $class;
}

sub method {
  my $self = shift;
  print $self->[ HASH1 ]{ something }, $self->[ HASH2 ]{ something_else };
}