Select Code to Download

foreach my $key (
   map  {$_->[0]}
...
{
    # Do something here
}

use strict;
use warnings;
...
       map  {[$_, $_ eq q{Foo}]}
       @_;
}

Key Order     Preferred Order
Ben => 8      Ben => 8      
...
Beb => 8      Beb => 8      
Bel => 2      Bel => 2      
Beo => 7      Beo => 7