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

my $month;
my $value;

$month=2;
$value=300;

my @stat;

push @{$stat[$month]}, $value;

my $nr=@{$stat[2]};
print "NR $nr\n";
print "$stat[2]->[0]\n";