#!/usr/bin/perl 

#use strict;

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

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