#!/usr/bin/perl
$|=1;

my %arguments;

for( my $arg = 0 ; $arg <= $#ARGV ; $arg++ ) {
    print $ARGV[$arg]."\n";
    $arguments{ $arg } = $ARGV[$arg];
    foreach my $arg ( %arguments ) {
        print "key = >$arg< value = >$arguments{$arg}<\n";
    }
}