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