$count=0; while(<>) { $mynumber = $_; chomp $mynumber; $count +=$mynumber; } print $count;