# a PERL program that..
use strict;
use warnings;

# the missing spec: 3 times
for (1..3){
    my $sum;
    # in groups of 5
    for (1..5){
        # randomly generates a number between 1 and 50
        # Sum each group
        $sum += int (rand(50)+1);
    }
    # display the results so that each number is on its own line
    print "$sum\n";
}