Example of hash in Perl

#!/usr/bin/perl -w
use strict;
use warnings;

my %name=("fred"=>"flintstone","barney"=>"rubble","wilma"=>"flintstone",);
my $length=keys %name;# Count the number of hash
print "$lengthn";
while(my($k,$v)=each%name)# List all the elements of hash
{
	print "$k---->$vn";
}
my $given_name=<STDIN>;# The Usage of <STDIN>
chomp $given_name;# Delete the "n"
print "$name{$given_name}n";

output:

3 barney---->rubble wilma---->flintstone fred---->flintstone fred flintstone