#!/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]