[FWP] hasheesh

[John Porter <jdporter@min.net>]

  sub hasheesh(&\%) {
    my( $c, $h ) = @_;
    local( $a, $b );
    &$c while ( $a, $b ) = each %$h 
  }


  hasheesh { print "$a => $b\n" } %h;


-- 
John Porter


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe