comment on

You do not need to push into an array the @ARGV it is a already an array. Sample of code bellow:

#!/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
[download]

You can also use Data::Dumper to view complex structures. On the sample of code I have enter the command remove the # and give it a try.

Update: Just a minor note to add, you can use also while loop to process the @ARGV, usually while loops are faster than foreach loops. Have a look on the Benchmark bellow, but also keep in mind that the while loop because we are using shift we will destroy the array. In case you want to reuse the array you need to copy it. In this case foreach loop is faster so a better option. :)

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
# use Benchmark qw(:all) ; # WindowsOS
use Benchmark::Forking qw( timethese cmpthese ); # UnixOS

sub whileLoop {
    my $localCount = 0;
    my %localHasHierarchy;
    while (defined(my $input = shift (@_))) {
    $localHasHierarchy{$input} = $localCount++;
    }
    return \%localHasHierarchy;
}

sub foreachLoop {
    my $localCount = 0;
    my %localHasHierarchy;
    $localHasHierarchy{$_} = $localCount++ foreach (@_);
    return \%localHasHierarchy;
}

# print Dumper whileLoop(@ARGV);
# print Dumper foreachLoop(@ARGV);

my $results = timethese(-10,
            { 'While' => sub { whileLoop(@ARGV) },
              'Foreach' => sub { foreachLoop(@ARGV) } },
            'none');
cmpthese( $results );

__END__

$ perl test.pl POPE PATRIARCH ARCHBISHOP CARDINAL
            Rate   While Foreach
While   719936/s      --    -19%
Foreach 889776/s     24%      --
[download]

Update 2: I tried to apply minor modifications but still foreach is winning, but at least now they are closer on the comparison. :)

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
# use Benchmark qw(:all) ; # WindowsOS
use Benchmark::Forking qw( timethese cmpthese ); # UnixOS

sub whileLoop {
    my $localCount = 0;
    my %localHasHierarchy;
    while (defined($_ = shift (@_))) {
    $localHasHierarchy{$_} = $localCount++;
    }
    return \%localHasHierarchy;
}

sub foreachLoop {
    my $localCount = 0;
    my %localHasHierarchy;
    $localHasHierarchy{$_} = $localCount++ for (@_);
    return \%localHasHierarchy;
}

# print Dumper whileLoop(@ARGV);
# print Dumper foreachLoop(@ARGV);

my $results = timethese(-10,
            { 'While' => sub { whileLoop(@ARGV) },
              'Foreach' => sub { foreachLoop(@ARGV) } },
            'none');
cmpthese( $results );

__END__

$ perl test.pl POPE PATRIARCH ARCHBISHOP CARDINAL
            Rate   While Foreach
While   739404/s      --    -17%
Foreach 893518/s     21%      --
[download]

Hope this helps, BR.

Seeking for Perl wisdom...on the process of learning...not there...yet!

In reply to Re: HASH Hierarchy by thanos1983
in thread HASH Hierarchy by dirtdog

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.