#!/usr/bin/env perl 
use strict;
use warnings;

my $order = 0;
my %hierarchy;

$hierarchy{$_} = $order++ for @ARGV;

while( my( $key, $value ) = each %hierarchy ){
    print "$key: $value\n";
}