#!/usr/bin/perl 

# Extend the mcmurdo climatology

use strict;
use warnings;

my @Clim;
while (<>) { push @Clim, $_; }

for ( my $Year = 1899 ; $Year < 1915 ; $Year++ ) {
    for ( my $j = 0 ; $j < @Clim ; $j++ ) {
        my $Tmp = $Clim[$j];
        $Tmp =~ s/1903/$Year/;
        print $Tmp;
    }
}