:
: Much hand waving.
:
# initialize a couple of things

my %asoc_ary=();
my @key_table=();

:
: fanning the air some more 

sub putThingIn {
    my ($key,$value)=$_;

    push @key_table=$key;
    $asoc_ary{$key}=$value;
}

sub getThingsBack {
     foreach my $key(@key_table){
        print $asco_ary{$key},$/;
     }
}