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

my @ranksUsed;
for (@$ranksUsed) {
    push @ranksUsed, $_->[0];
}

my %ranksUsed = map {$_ => undef} @ranksUsed;