#!/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";
  }
}

##</code><code>##

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

##</code><code>##

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

##</code><code>##

#!/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__


##</code><code>##

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