Select Code to Download

$ perl -le'undef $_; defined $_->{0}; print $_'
HASH(0x813f1c8)

while( defined $bros->{ $find }->[ $index ]->{ $key } ) {
    # ...
}

while(
    ref $bros->{ $find }->[ $index ]
...
) {
    # ...
}

for my $year ( qw( 1958 1959 1960 1961 1962 1963 1964 ) ) {
    for my $film ( @{ $bros->{ $year } } ) {
...
            if $film->{ $key } =~ /$data/i;
    }
}

for my $year ( qw( 1958 1959 1960 1961 1962 1963 1964 ) ) {
    push @res, (
...
        @{ $bros->{ $year } },
    );
}