my %foo;
for $foo{'somekey'} ( @arr ) {
  ...;
}