for my $key ( keys %citystate ) {
                $fhdest -> print("<p>$key</p>");
        }
        for my $key ( keys %citycountry ) {
                $fhdest -> print("<p>$key</p>");
        }
        for my $key ( keys %airportCode ) {
                $fhdest -> print("<p>$key</p>");
        }