column figure outer for sandy

foo.pl

#!/usr/bin/env perl
#
use warnings;
use strict;

{
  print "How many items: ";
  my $items = <STDIN>;
  print "How many columns: ";
  my $columns = <STDIN>;
  chomp ($items);
  chomp ($columns);

  my $base = int($items / $columns);
  my $leftover = $items % $columns;

  for my $i ( 1 .. $columns) {
    my $column_count = $base + ($leftover > 0 ? 1 : 0);
    $leftover--;
    print "Column $i has: $column_count items.\n";
  }
  redo;
}