Select Code to Download

@a = (0,1,2,3,4,5);

...

print "\$a[2]=$a[2]\n";
pr;