sub print_in_n_cols {
	my ($count, @items) = @_;
	while (@items){
		for (1 .. $count){
			print "\t", shift @items;
			last unless @items;
		}
		print "\n";
	}
}