#!/usr/bin/env perl
use strict;
my @hierarchy;
my %hierarchy;
my $order =0;

while ($#ARGV >= 0) {
    push @hierarchy,shift;
}

for (@hierarchy) {
        $hierarchy{$_} = $order;
$order++;
}

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