# 1行読み込んで空白で分割 my ($A,$B) = get().split(' '); # 1行読み込む my $S = get(); # 計算して出力 say $A+$B, ' ', $S;