Or use a module.

use strict;
use warnings;
use List::Util qw(sum);
print 'The sum is : ', sum(map {rand 50} 1..5), "\n";
[download]