#!/usr/bin/perl

use Benchmark;

timethese(10000, {
        'foreachmy' => sub {
                my ($sum,$avg);
                foreach my $i (1..1000) {
                        $sum += $i;
                        $avg = $sum/$i;
                }
        },
        'foreachglobal' => sub {
                my ($sum,$avg,$i);
                foreach $i (1..1000) {
                        $sum += $i;
                        $avg = $sum/$i;
                }
        },
        'foreachnovar' => sub {
                my ($sum,$avg);
                foreach (1..1000) {
                        $sum += $_;
                        $avg = $sum/$_;
                }
        },
        'fornovar' => sub {
                my ($sum,$avg);

                for (1..1000) {
                        $sum += $_;
                        $avg = $sum/$_;
                }
        },
        'ctypeFor' => sub {
                my ($i,$sum,$avg);
                for ($i=1;$i<=1000;$i++) {
                        $sum += $i;
                        $avg = $sum/$i;
                }
        }
        }
);