use strict; use warnings; my ($A, $B) = <>; my ($S) = <>; chomp ($A, $B, $S); print join " " , $A + $B, $S;