Help for this page

Select Code to Download


  1. or download this
    foreach my $key (
       map  {$_->[0]}
    ...
    {
        # Do something here
    }
    
  2. or download this
    use strict;
    use warnings;
    ...
           map  {[$_, $_ eq q{Foo}]}
           @_;
    }
    
  3. or download this
    Key Order     Preferred Order
    Ben => 8      Ben => 8      
    ...
    Beb => 8      Beb => 8      
    Bel => 2      Bel => 2      
    Beo => 7      Beo => 7