use Data::Dumper;
my @x= (undef)x7;
warn Dumper \@x;