#!/usr/bin/perl -w
my  $func_done;
my  $func_return;

my $max=1000000;

DoIt($max);
$func_return = (times)[0];
printf "Return took %.4f CPU seconds\n", $func_return - $func_done;

sub DoIt{
        my $limit=shift;
        my $i;
        my %myhash;
        foreach $i (0..$limit){
                $myhash{$i}=1;
        }
        $func_done = (times)[0];
        return;
}