Алгоритм решения этой задачи может быть следующим. Задаем переменную $nom, которая будет номером элемента. В цикле по количеству аргументов увеличиваем ее на 1 и выводим вместе с очредным аргументом. Пример работы скрипта изображен на рисунке 1.

    Текст программы:

#! perl -w
sub arg1 
{
  #Номер элемента
  $nom = 0;
  #Цикл по количеству аргументов 
  foreach $item (@_) 
  {
     $nom++;
     print "Номер элемента: $nom, элемент: $item \n";
  } 
  print "\n";
}
arg1(1,2,3);
arg1(10,11,12,13,14);

Рис.1. Пример работы скрипта