my %name;
open(FILE, $ARGV[0]) or die "Cannot open the file: $!";

my $hashkey;
my $hashvalue;
while (my $line = <FILE>) {
	if ($line =~ /(\S+)/) {
		$hashkey = $1;
		$hashvalue = $line;
		$name{$hashkey} = $hashvalue;
		$name{$hashkey}++;
	}
	elsif ($line =~ /\S/) {
		chomp $line;
	}
}
foreach my $hashname (keys %name) {
	print "$_ $name{$_}\n" for keys %name;
}	
	
close FILE;
exit;