Help for this page

Select Code to Download

Select or download this

my @x = qw(1 2 4 8 16);
foreach (@x) {
  print $x[$_], "\n";
}