use strict; use warnings; use feature 'say';

sub num { my $num = int( rand( 50 ) + 1 ); $num }
sub sum { my $sum = 0; $sum += $_ for @_;  $sum }

say sum map { num } 1 .. 5 until not 'fun';

__END__