Select Code to Download

#!/usr/local/bin/perl
use strict;
...
  print $array [$a], "\n";
  }
}

foreach print value of a: 1
while print value of a: 1
...
foreach print value of a: 8
while print value of a: 8
62

my $value = $array[$_] for @list;

#!/usr/bin/perl
use strict;
...

__END__

$ perl 1140597.pl
$a: 1 $array[1] 543
...
$a: 5 $array[5] 623
$a: 8 $array[8] 62
$