my $sub = sub { print "I see arguments\n" if @_; print "Hello\n"; };
# $sub might be in a hash somewhere
print $sub; # I expect "Hello"
print $sub->("foo", "bar"); # I should see "I see arguments" too.