use strict;
use warnings;

my $average = 3;

for my $i (1 .. $average) {
    print qq~dibbly\n~;
}