#!/usr/local/bin/perl
######################################################################
# Create, load and print an associative array (hash)
######################################################################

%info;                                   # create an empty hash
$info{'fname'} = 'Sam';                  # load the hash with name/values
$info{'lname'} = 'Sultan';
$info{'addr '} = '123 Main Street';
$info{'city '} = 'New York';
$info{'state'} = 'NY';
$info{'zip  '} = '12345';
$info{'phone'} = '(123)456-7890';

@arrayKeys = keys(%info);                # extract all the keys into array  
print @arrayKeys, "\n\n";

@arrayValues = values(%info);            # extract all values into array
print @arrayValues, "\n\n";

foreach $k ( keys(%info) ) {             # get all the keys  
    print "$k :  $info{$k} \n";          # print key : value
}
print "\n";
while(($key,$value) = each(%info)) {     # get each key/value pairs
    print "$key : $value \n";            # print key : value 
}
print "\n";