#!/usr/bin/perl

use warnings;
use strict;

print "Please enter a list of numbers separated by space:\n";

sub equals {

 my $total = "0";
 foreach (@_) {
     $total += $_;
 }
 $total;
}

my @nums;
my $i = 0;
while (<STDIN>) {
    $nums[$i] = $_;
}
print 'Total is: ' . equals(@nums) . "\n";