for my $result ( @results ) { 
        …;    
    for my $key ( keys %seen ) {
        …,
    }     
     …;
 }