my $cr3 = sub {
 $mul = $op1 * $op2;
}

my $cr4 = sub {
 $foo = $baz * $bar;
}