#!/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}; }