#!/usr/bin/perl -w

use strict;

my @list = ('pkc','pkd', 'mapk32', 'efgr');
my $count = 1;
my $item;

foreach (@list){
  print "Element number $count is $_\n";
  $count++
}