$x = $y * 16;
[download]

Any good compiler would optimise this for you into this

$x = $y << 4;
[download]

C and C++ compilers do it automaticaly in the preprocessor. I don't see why Perl wouldn't do it either unless that it was seen that it wasn't needed or that it hasn't been put in yet.

BMaximus