my $adr = 'example@hotmail.com';
my @goodrecs;
for (@recs){
   push @goodrecs, $_ if (split /:/)[3] eq $adr;
}