my $cr1 = sub { $foo = $bar * $baz; } my $cr2 = sub { $foo = $bar * $baz; } #### my $cr3 = sub { $mul = $op1 * $op2; } my $cr4 = sub { $foo = $baz * $bar; }