#!/usr/bin/perl -w
use strict;
use Benchmark;

my $trials = 50000;
timethese($trials, {
    'recursive' => sub {doSomethingRec(2,2,0);},
    'loop' => sub {doSomethingLoop(2,2,0);}
    });

sub doSomethingRec {
    my ($data1, $data2, $count) = @_;
    print "\$data1: $data1, \$data2: $data2, \$count: $count\n";
    $data1++, $data2++, $count++;
    if ($count < 4) {
        doSomethingRec($data1, $data2, $count);
    }
}

sub doSomethingLoop {
    my ($data1, $data2, $count)=@_;
    for($count..3){
                $data1++,$data2++,$count++;
                print "\$data1: $data1, \$data2: $data2, \$count: $count\n";
        }
}