use strict;
use warnings;
use List::Util qw(sum);
my @userArray = <STDIN>;
my $sum = sum(@userArray);
print "Sum $sum\n";