Select Code to Download

my@a=([],[],[],[],[],[],[],[],[],[]);

...
my@a=([],[],[],[],[],[],[],[],[],[]);
my$a=-1;map{@$_=('no')x10}@a;
map{map{print "-",$_}@$_;print"\n"}@a;

my $count;
@arr = (1) x 20;
print "Element ".$count++.":$_\n" for @arr;