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