Help for this page
Select Code to Download
Select
or
download this
my %x = (@_ and ref($_[0]) eq 'HASH') ? %{ $_[0] } : ();