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