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