http://qs321.pair.com?node_id=430530

snappybo has asked for the wisdom of the Perl Monks concerning the following question:

Yes i know evey one says don't do this...
But i just want to know how i can get this to work..

($db->FetchRow()); @names = $db->FieldNames(); @values = $db->Data(); $arraycnt = '0'; while ($names[$arraycnt] ne '') { $$names[$arraycnt] = $values[$arraycnt]; $arraycnt = $arraycnt +1; }

I don't need to know about hashes or arrays, this is the best way to get a result i require without having to recode huge amounts.. Because the code has already been written, just modifcations are being made..

Thanks in advance..

Code tags and formatting added by davido.