$formatstring .= ($i == ($column_count - 1)) ? "%s\n" : "%-${cutoff}s ";
}
printf $formatstring, map { $colopts->{$_}->{title} } @$props_to_print;
if (defined($sort_key)) {
$formatstring .= ($i == ($column_count - 1)) ? "%s\n" : "%-${cutoff}s ";
}
printf $formatstring, map { $colopts->{$_}->{title} } @$props_to_print;
if (defined($sort_key)) {