use List::Util qw( sum );

my @fred = qw{ 1 3 5 7 9 };
my $fred_total = sum @fred;

my $line = <STDIN>;
my @nums = split ' ', $line;
my $user_total = sum @nums;