#!/usr/bin/perl
sleep 10;
$#a= 100;
sleep 10;
$#b= 1000;
sleep 10;
$#c= 10000;
sleep 10;
$#d= 100000;
sleep 10;
$#e= 1000000;
sleep 10;
$#f= 10000000;
sleep 10;

##</code><code>##

 1981
 1984    +3
 1986    +2
 1996   +10
 2095   +99
 3077  +982
12865 +9788