Select Code to Download

%hash = ( (a => 1, b => 2), (a => 101, b => 102) );
%hash = ( (a => 1, b => 2), (b => 102, a => 101) );
%hash = ( (b => 2, a => 1), (a => 101, b => 102) );
%hash = ( (b => 2, a => 1), (b => 102, a => 101) );

%hash = ( a => 102, b => 2, a => 1, b => 102 );

my $class = shift;
my $self = {};
@$self{qw{x y w h}} = @_;
bless $self, $class;