#!/usr/bin/perl -w
use strict;

# memory fault bug

my %set;

$set{blah} = "nah";
$set{caw} = "hah";


    while( (key, value) = each( %set ) ) {
        #$table->{$pk}->{$key} = $set{$key};
    }
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.