Hashes are unordered. keys does not necessarily return the keys in the same order as they were entered. If you want the keys in the order that they came from the database, you can change:

while ($ref = $sth->fetchrow_hashref){
...
   foreach $col (keys %$ref) {
[download]

to

while ($ref = $sth->fetchrow_hashref("NAME_lc")){
...
   foreach $col (@{$sth->{"NAME_lc"})
[download]

Hope this helps.

Note: $sth->fetchrow_hashref defaults to "NAME" and you can use it in the foreach statement if you wish. I use NAME_lc for hysterical reasons about which I was informed during my introduction to DBI.