#!/usr/bin/perl -w

use strict;
use Benchmark;


timethese(100000, {
        'loop' =>'loop()',
        'noloop' => 'noloop()'
});


sub loop {

    my $x;

    for (1..10) {
        $x++;
    }
}

sub noloop {

    my $x;

    $x++;
    $x++;
    $x++;
    $x++;
    $x++;
    $x++;
    $x++;
    $x++;
    $x++;
    $x++;
}

##</code><code>##

Benchmark: timing 100000 iterations of loop, noloop...
      loop:  4 wallclock secs ( 3.48 usr +  0.03 sys =  3.51 CPU) @ 28490.03/s (
n=100000)
    noloop:  0 wallclock secs ( 1.09 usr +  0.00 sys =  1.09 CPU) @ 91743.12/s (
n=100000)