そう、以前にもあったけどまだやってたのか・・・
一応、やってみたけどこんな感じでいいのかな？

sub rel{
 my( $key, $i, $rel );
 GOOD_BYE:
 for $key ( keys %{$_[0]} ){
  for ($i=0; $i<=$#{${$_[0]}{$key}}; $i++){
   #if ( ${${$_[0]}{$key}}[$i] == $_[1] ){ print "goo\n"; }
   $rel= "{$key}[$i]",last GOOD_BYE if ${${$_[0]}{$key}}[$i] == $_[1];
  }
 }
 $rel;
}