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

sub main() {
    doSomething("1","2","0");
    print "Done\n";
}

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