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