Select Code to Download

$x = $y * 16;
$x = $y << 4; #Much faster

use Benchmark;
use integer;
...
 multiply => sub { my $y = 3; my $x = $y * 16 },
 shift => sub { my $y = 3; my $x = $y << 4 } }
);