Ouch

        map { @{ $prv->{$_->[0]} }{@flds} = @$_[1..$#{$_}] } @$ar;

• The C programmer is drunk with power!

        for $rec (@$ar) {
          my $key = shift @$rec;
          my %h; @h{@flds} = @$rec;
          $prv->{$key} = \%h;
        }

Next

Copyright © 2006 M. J. Dominus