#!/usr/bin/perl

my $i=0;
printf("Argument %d: %s\n", ++$i,shift) while @ARGV;