##
1. Temperature in Jakarta is 30, but average temp in indonesia is 40 degrees.
2. Temperature in Beijing is 50, but average temp in China is 20 degrees.
####
open(my $fh, '<', 'Citytempfile.txt')
or die "Cannot open cellnames.txt: $!";
my $i = 0
while (<$fh>) {
my @array = split ' ', <$fh>
print $fileHandle_drc $i+1, 'Temperature in ',$array[0], ' is ', $array[1], 'but average temp in ', $array[2], 'is', $array[3] ;
$i++;
}