Help for this page

Select Code to Download


  1. or download this
    my @a = bless([], "HASH");
  2. or download this
    {package HASH; use overload "%{}"=>sub{$_[0][0]}}
my @a = bless([{}], "HASH");
  3. or download this
    print @$x == grep({eval {\%$_}} @$x),"\n";