thanks for pointing me in right direction. changed my code to...

    my $sth = $dbh->column_info(undef, undef, 'table1', "%");
    
    my $col_info = $sth->fetchall_hashref('ORDINAL_POSITION');
[download]

which gives exactly what I wanted.

"thx" x 100