use List::MoreUtils qw/firstidx/;
my $idx = firstidx { $_ eq $test } sort keys %hash;