20

20.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $cal = 1300 / 16;

my $i = 0;
my @persons;
for my $j (0..15){

  $persons[$i] += $cal;

  if ($i == 6){
    $i = 0;
  }else{
    $i++;
  }
}

for my $person (@persons){
  print "$person\n";
}