use warnings;
use strict;

my @array;

print "Enter the number of years: ";
my $i = <STDIN>;
my @p = 100;
sub number {
 
  for(1..100) {
   if ($_ % 2) {
   my $y = number($p[-1]*1100);
   push @array, $y;
   }
   else { 
   my $z = number($p[-1]*950);
   push @array, $z;
  }
}
}

print $array[$i-1];