$ perl /tmp/proto.pl 
WARNING: Prototype mismatch: sub main::fn1 ($) vs (\@) at /tmp/proto.pl line 11.
 
WARNING: Prototype mismatch: sub main::fn2 ($) vs (\@) at /tmp/proto.pl line 18.
 
output1output2