my $ST = $DB->prepare('select * from side_table');
$ST->execute;
while (my $hr=$ST->fetchrow_hashref) {
    # Print formatted columns
    printf "% 8u ",   $$hr{FIRST_COLUMN};
    printf "%12.2f ", $$hr{COLUMN_2};
    ...etc...
    printf "%-200.200s\n", $$hr{XXX};
}