#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $count = 0;
my %hasHierarchy;

$hasHierarchy{$_} = $count++ foreach @ARGV;

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

# print Dumper \%hasHierarchy;

__END__

$ perl test.pl POPE PATRIARCH ARCHBISHOP CARDINAL
POPE: 0
CARDINAL: 3
ARCHBISHOP: 2
PATRIARCH: 1