There's actually two extra 1's on there, the result is

FirstSecond2311
[download]

That's because the function print returns 1 on success, just like many other Perl functions. Lacking an explicit return, statement, the first and second subs return the result of their last statement, which is 1 in both cases.