Select Code to Download

my @array = join(' ' , keys %num) . "\n";

my @array = keys %num;

my @num = ();

while(scalar @num < 5){
  push @num, int(rand(50) + 1);
}

push(@num, int(rand(50) + 1)) for(1..5);

print join(' ' , @num), "\n";

my $sum = 0;

...
}

print "The sum is: $sum\n";

my @num = ();

...

print join(' ' , @num), "\n";
print "The sum is: $sum\n";

my @num = ();
my $sum = 0;
...
}

print join(' ' , @num), "\nThe sum is: $sum\n";