#! /usr/local/bin/perl

# This example will show how to create a hash and print it out

# hashes go in the order of key - value
%hash = ('key1','value 1','key2','value 2','key3','value 3'); 

print "key1 holds $hash{'key1'}\n"; #we are calling the values that are associated with the key
print "key2 holds $hash{'key2'}\n";
print "key3 holds $hash{'key3'}\n";

    Source: geocities.com/siliconvalley/vista/6493/perl/code

               ( geocities.com/siliconvalley/vista/6493/perl)                   ( geocities.com/siliconvalley/vista/6493)                   ( geocities.com/siliconvalley/vista)                   ( geocities.com/siliconvalley)