#!/usr/bin/perl

use Benchmark;
use strict;

timethese(100000, {
    'rob_au'    =>  q!
        my @values = ( 1.24, 5.43, -98.54, -73.667, 0.67, 2.34, 76.89, -999.99, 34.52, 67.89 );

        foreach my $value (@values) {
            my $result = sprintf("%d", $value);
        }
    !,
    'japhy'     =>  q!
        my @values = ( 1.24, 5.43, -98.54, -73.667, 0.67, 2.34, 76.89, -999.99, 34.52, 67.89 );

        foreach my $value (@values) {
            my $result = int($value * 10**0 + .5 * ($value < 0 ? -1 : 1)) / 10**0;
        }
    !
});