Select Code to Download

use strict;

...
    print "$table -> $field\n";
  }
}

$fields{$tablename}{$fieldname}{'Position'}

$fields{$tablename}{'Position'}