use strict; $db->FetchRow(); my @names = $db->FieldNames(); my @values = $db->Data(); no strict "refs"; ${$names[$_]} = $values[$_] for 0..$#names; use strict;