#               v    v
my ($s, $t) = (((2*aa)+bb), (2*$a+$b));