my ($name, $type, $len, $null, $pri, $inc);

format STDOUT_TOP =                                   
Name ---------------- Type ------ Len--- Null Pri- Inc- 
.                                                     
                                                      
format STDOUT =                                       
@<<<<<<<<<<<<<<<<<<<| @<<<<<<<<<| @>>>>| @>>| @>>| @>>| 
$name, $type, $len, $null, $pri, $inc                 
.

for (@structure) {
   ($name, $type, $len, $null, $pri, $inc) = (
         $_->{f_name},
         $_->{f_type},
         $_->{f_length},
         $_->{f_nullable},
         $_->{f_pri_key},
         $_->{f_autoinc},
      );
      write (STDOUT);
}