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

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

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

main()