Select Code to Download

my $ranksUsed = [ [ 1 ], [ 2 ] ];
  # No intermediate array or loop...
my %ranksUsed = map {$_->[0] => undef} @$ranksUsed;

$VAR1 = {
          '1' => undef,
          '2' => undef
        };