#!/usr/bin/perl
    
use strict;
use warnings 'all';   
    
use Benchmark;
    
timethese -10 => {
    unpack     =>  '$_ = unpack "H*" => "abc"',
    sprintf    =>  '$_ = sprintf "%x%x%x", ord ("a"), ord ("b"), ord ("c")',
}

 
__END__
Benchmark: running sprintf, unpack for at least 10 CPU seconds...
   sprintf: 11 wallclock secs (10.25 usr +  0.00 sys = 10.25 CPU) @ 775053.56/s (n=7944299)
    unpack: 11 wallclock secs (10.48 usr +  0.01 sys = 10.49 CPU) @ 331145.09/s (n=3473712)