#!perl

while(<>) {
    chop;
    print $_," ",`sum $_`;
}