#!/usr/bin/perl -w
use strict;

my $month;
my $value;

$month=2;
$value=300;

my (@stat1,@stat2,@stat3,@stat4,@stat5,@stat6,@stat7,@stat8,@stat9,@stat10,@stat11,@stat12);

my $arrayname = 'stat'.$month;
push @$arrayname, $value;

my $nr=@stat2;
print "NR $nr\n";
print "$stat2[0]\n";