hash troubles

Im trying to learn hashes but having a hard time trying to figure out
why it seems I cant use data from a hash outside of the original for
loop.  This code works as expected to me.  I guess it would be the
same if i just stuck a print statement after the hash assignment:


#!/usr/bin/perl -w
use strict;
our %hash;
our @array;
our $count;
our $value;
our $key;
print "Enter data then press ctrl D:\n";
@array = <STDIN>;
chomp @array;
print "@array\n";
$count = 1;
foreach ( sort @array ) {
	if (! $hash{$_} ) {
	%hash = ( $_ => $count );
	} else {
	$hash{$_} = $hash{$_} + 1;
	}
while (( $key, $value ) = each %hash) {
print "$key has been seen $value times\n";
	}
}


But when I try to just print a total instead of every instance of the
words type at command prompt it seems to just hold onto just  the last
value in hash.  This what is the code:


#!/usr/bin/perl -w
use strict;
our %hash;
our @array;
our $count;
our $value;
our $key;
print "Enter data then press ctrl D:\n";
@array = <STDIN>;
chomp @array;
print "@array\n";
$count = 1;
foreach ( sort @array ) {
	if (! $hash{$_} ) {
	%hash = ( $_ => $count );
	} else {
	$hash{$_} = $hash{$_} + 1;
	}
	}
while (( $key, $value ) = each %hash) {
print "$key has been seen $value times\n";
}


Any help would be greatly appreciated.
Thank You

• hash troubles by dbro
• Re: hash troubles by Shawn H Corey
• Re: hash troubles by Octavian Rasnita