contador perl

#!/usr/bin/env perl
$i = 1;
for (1..100000000){
    $i += 1;
}