#!/usr/bin/perl
sub aa{2}
sub bb{2}

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

say STDERR "$a==", aa;
say STDERR "$b==", bb;
say STDERR "$s==$t";

##</code><code>##

2==2
2==2
4==6

##</code><code>##

It can't be perl
It must be me
Yet what it is
I cannot see