Update: The OP was completely changed while I wrote this reply, including the subject. OP below. My answer to the revised question further below.

Original post:

#!/usr/local/bin/perl
use strict;
use warnings;

my $i=1;

my @array = (34,543,754,5432,865,623,8635,5324,62,8654);
my @list = (1, 3, 5, 8);


foreach $a(@list){
 print "foreach print value of a: $a\n";
while ($i) {
  print "while print value of a: $a\n";
  $i=$i-1;
  print $array [$a], "\n";
  }
}
[download]

for some reason, i want to pass certain value in @array to the while loop, but my code only allows me to pass the first value. Below is the result i want to get, Can anyone help me out? T_T

foreach print value of a: 1
while print value of a: 1
543
foreach print value of a: 3
while print value of a: 3
5432
foreach print value of a: 5
while print value of a: 5
623
foreach print value of a: 8
while print value of a: 8
62
[download]

Original post ends here

---

Reply starts here

Use for:

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

#!/usr/bin/perl
use strict;
use warnings;
use feature qw/ say /;
use Data::Dumper;

my @array = (34,543,754,5432,865,623,8635,5324,62,8654);
my @list = (1, 3, 5, 8); 

say "\$a: $_ \$array[$_] $array[$_]" for @list;

__END__
[download]

Output:

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