my @var;
for my $a (1..10) {
 $var[$a] = 5 + $a;
}