my $ranksUsed = [ [ 1 ], [ 2 ] ];

my %ranksUsed;
for (@$ranksUsed) {
    $ranksUsed{$_->[0]}=undef;
}