...
return join '', map {
	my $data = join ' ', grep $_, @{ $_ }{ qw( year color age ) };
	( $alldata->{ cont } ne $_->{ cont } ) ?
	qq|<a href="index.pl?cont=$_->{ cont }">ALL FOUND $_->{ cont }</a><br>$data<br><span>$_->{ year }</span></li>| : ();
	} @{ $general->{ '111111' } };
...