I would first split and then process in chunks of 21 items:

my @values = split /\s+/, $weatherdata;
croak "Invalid item count in weather data"
    unless @values % 21 == 0;
while(my @row = splice @values, 0, 21 ) {
....
}
[download]