foreach my $airport ( keys %airport_hash){

    my @lines = @{$airport_hash{$airport}};
    my %in;
    ......
    .....