sub f ($) { print $_[0], "\n"; }
sub g     { print $_[0], "\n"; }

f("Hallo"); # ok
f "Hallo";  # ok

g("Hallo"); # ok
g "Hallo";  # Fehler!