while (@{$tables{$_}{'columns'}}) {
my($name,$type,$null,$length)=splice @{$tables{$_}{'columns'}}, 0, 4;
push @columns, new DBIx::DBSchema::Column ( $name,$type,$null,$length );
while (@{$tables{$_}{'columns'}}) {
my($name,$type,$null,$length)=splice @{$tables{$_}{'columns'}}, 0, 4;
push @columns, new DBIx::DBSchema::Column ( $name,$type,$null,$length );