Select Code to Download

use strict;
use DBI;
...

# inspect our result
print Dumper(\%data);

addressbook.txt
---------------
...
Mrs|Linda|Caralo|201|148|she@borg.org
Miss|Jean|Androno|317|167|j@alo.com
Mr|Steve|Paterman|101|100|steve@net.net

$VAR1 = {
          'Caralo' => {
...
                         'room' => '317'
                       }
        };