use strict;
use warnings;
use diagnostics;
 
use Benchmark qw( :all );;
 
my ( $number, $num );
 
$number = 1100.64686081907;
 
cmpthese( -1, {
                sprintf => sub { $num = sprintf "%.2f", $number; },
                round   => sub { $num = int( $number * 100 + .5 ) / 100; },
              }
        );

# produced the results ...

            Rate sprintf   round
sprintf 123242/s      --    -86%
round   851644/s    591%      --