use DBIx::Database; 
use DBIx::Connect; 
use Data::Dumper; 
 
my %mdb = DBIx::Connect->data_hash('mdb'); 
 
 
 
 
$db = DBIx::Database -> new ({'!DataSource'   =>  $mdb{dsn}, 
                              '!Username'     =>  $mdb{user}, 
                              '!Password'     =>  $mdb{pass}, 
                              '!KeepOpen'     => 1}) ; 
 
my $field = $db -> AllNames ('customer'); 
 
#die Dumper($field); 
 
print "fields in database order:\n @field"; 
print join("\n", @$field); 
 
@$field = sort @$field; 
 
print "\n\n"; 
 
print "fields in alphabetical order:\n ", join "\n", @$field;