use strict;
use warnings;

use Data::Dumper::Simple;

sub PrintPrimes
{
   my($Primes, $WrapAt, $Iterations) = @_;

   my $PrimeString = '';
   my $PrimeStrings;
   my $ItLength = length($Iterations);

   foreach my $Prime (@$Primes)
      {
      my $PreviousPrimeString = $PrimeString . "\n";
      $PrimeString .= sprintf("%*.0d", $ItLength, $Prime) . ', ';
      if(length($PrimeString) > $WrapAt)
         {
         push(@$PrimeStrings, $PreviousPrimeString);
         $PrimeString = $Prime . ', ';
         }
      }

   chop($PrimeString);
   $PrimeString .= "\n\n";
   push(@$PrimeStrings, $PrimeString);
   $PrimeString = '';

   foreach my $String (@$PrimeStrings)
      {
      $PrimeString .= $String;
      }

   return($PrimeString);
}


my $Primes;
@$Primes =
(
   2,    3,    5,    7,   11,   13,   17,   19,   23,   29,   31,   37,   41,
43,   47,   53,   59,   61,   67,   71,   73,   79,   83,   89,   97,  101,
103,  107,  109,  113,  127,  131,  137,  139,  149,  151,  157,  163,  167,
173,  179,  181,  191,  193,  197,  199,  211,  223,  227,  229,  233,  239,
);

print(PrintPrimes($Primes, 80, 1000));