Select Code to Download

#!/usr/bin/perl -w

...
     use_eq=> q{ my @sorted = sort using_eq @array }
    }
);

use_eq: 24 wallclock secs (24.27 usr +  0.00 sys = 24.27 CPU)
use_hash: 27 wallclock secs (27.68 usr +  0.00 sys = 27.68 CPU)
...
use_eq: 24 wallclock secs (23.59 usr +  0.00 sys = 23.59 CPU)
use_hash: 28 wallclock secs (27.75 usr +  0.00 sys = 27.75 CPU)
use_return: 24 wallclock secs (22.86 usr +  0.00 sys = 22.86 CPU)