#! perl -slw
use strict;

my @city = split ' ', <DATA>;
my @temp = split ' ', <DATA>;
my @note = split ' ', <DATA>;

my $i = '01';
for my $city ( @city ) {
    for my $temp ( @temp ) {
        for my $note ( @note ) {
            open O, '>', 'out' .  $i++ or die $!;
            print O 'city: ', $city;
            print O 'weather: ', $temp;
            print O 'recommended: ', $note;
            close O;
        }
    }
}

__DATA__
Jakarta paris delhi singapore
hot cold wet
yes no cannotcomment