Select Code to Download

$key eq "year"
  ?
...
        }
        $yr = $ydx[$list];
        &show($bros->{$ydx[$list]}->[$index]);

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