use 5.012.02;
use strict;
use warnings;

my %basestat;
my @temparray;
my $basecount = 1;

@temparray = $basestat{$basecount};
say "\$temparray[0] is ", defined( $temparray[0] ) ? "defined." : "undefined.";
say "\@temparray has ", scalar(@temparray), " elements.";
say "\$temparray[0] = $temparray[0]";
say "\@temparray = @temparray";