#!/usr/bin/perl -a
use 5.10.0;
map{$s+=$_}@F;say$s