use strict;
use warnings;

sub foo (&){ }
sub bar {}


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

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

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