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