Help for this page
%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;