use strict;
use warnings;

sub foo (&){ }
sub bar {}


my ($Q,$t) = (10,2);

bar ($Q) + bar ($t);

foo {$Q} + foo {$t}; # line 12


##</code><code>##

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/sym.pl 
Too many arguments for main::foo at d:/tmp/pm/sym.pl line 12, near "};"
Execution of d:/tmp/pm/sym.pl aborted due to compilation errors.

##</code><code>##

use strict;
use warnings;

sub bla($) {shift}
my ($Q,$t,$res) = (10,2);

sub tst {
    print $res= bla $Q / bla $t;
}

use B::Deparse;

print B::Deparse->new('-p')->coderef2text(\&tst);

##</code><code>##

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/sym.pl 
{
    use warnings;
    use strict;
    print(($res = bla(($Q / bla($t)))));
}