$key eq "year"
  ?
   &show($bros->{$data}->[$list])
  :
   $index = 0;
   while($bros->{$ydx[$list]}->[$index]->{$key} !~ $data/i){
        $index++;
        }
        $yr = $ydx[$list];
        &show($bros->{$ydx[$list]}->[$index]);

##</code><code>##

$key eq "year" ? &show($bros->{$data}->[$list]) : $index = 0;
while($bros->{$ydx[$list]}->[$index]->{$key} !~ /$data/i){
    $index++;
}
$yr = $ydx[$list];
&show($bros->{$ydx[$list]}->[$index]);