#!/usr/bin/perl
# 
# ass_array.pl written by detour@metalshell.com
#
# Associative array's can be very useful in organizing
# your data.  This example will show how to make use
# of them.
#
# http://www.metalshell.com/
#
 
use strict;
# You can define multiple keys with values when
# you declare your associative array.
my $key;
my %assoc = ("PX", "Philadelphia Experiment",
         "1WG", "One World Governmnet",
         "NWO", "New World Order",
         "MIB", "Men In Black");
 
# You can access a value for a key by doing the following.
print "PX stands for " . $assoc{"PX"} . ".\n\n";
 
# You can add or modify values at any time
$assoc{"CIA"} = "Central Intelligence Agency";
 
# Cycle through every key and print the values.
foreach $key (keys %assoc) {
  print "$key stands for " . $assoc{$key} . ".\n";
}
print "\n";
 
# Delete the unwanted values.
delete $assoc{"NWO"};
delete $assoc{"1WG"};
 
foreach $key (keys %assoc) {
  print "$key stands for " . $assoc{$key} . ".\n";
}