#! perl -sl
use strict;
use List::Util qw[ max sum ];
use Data::Dumper;

our $WIDTH ||= 80;

sub columnise {
	my( $width, @list ) = @_;
	my @lines;

	for my $rows ( 1 .. @list ) {
		my $cols = int( (@list + $rows -1) / $rows );
		my @aoa = map{
			[ @list[ $_ .. $_+$rows-1 ] ]
		} map{ $_ * $rows } 0 .. $cols-1;

		my @widths = map{
			2+ max map length( $_||'' ), @$_
		} @aoa;

		next if sum( @widths ) > $WIDTH;

		for my $row ( 0 .. $rows-1 ) {
			push @lines, join '', map{
				sprintf "%-$widths[ $_ ]s", $aoa[ $_ ][ $row ]||''
			} 0 .. $#aoa;
		}
		return @lines;
	}
}

chomp( my @list = sort <DATA> );
close DATA;

print for columnise $WIDTH, @list;

__DATA__
<<SNIP>>