in reply to chomp and concatenation of lines

I'm not sure I understand exactly what you want, but if you don't want newlines in the output, remove the newline from the end of:

    print OUTFILE join(';',@{$aircraftID{$aircraft_id_1}}), "\n";

In Section Seekers of Perl Wisdom