Example of hash in Perl

#!/usr/bin/perl -wuse strict;use warnings;my %name=("fred"=>"flintstone","barney"=>"rubble", "wilma"=>"flintstone", );my $length=keys %name;# Count the number of hashprint "$length\n";while(my($k,$v)=each%name)# List all the elements of hash{print "$k---->$v\n";}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