Great programming language shootout

[Andy_Bach]

Another list (discussing ICON) got me to:
http://www.bagley.org/~doug/shootout/

and checking on perl's results found it sort of in the middle. 
http://www.bagley.org/~doug/shootout/lang/perl/

This was one of the scripts:

#!/usr/local/bin/perl 
# $Id: sieve.perl,v 1.11 2001/07/02 03:53:58 doug Exp $
# http://www.bagley.org/~doug/shootout/
# with help from Tony Bowden

use strict;
use integer;

my $NUM = ($ARGV[0] < 1) ? 1 : $ARGV[0];
my $count;
my @flags = ();
while ($NUM--) {
    $count = 0; 
    my @flags = (0 .. 8192);
    for my $i (2 .. 8192 ) {
                 next unless defined $flags[$i];
                 # remove all multiples of prime: i
                 my $k = $i;
                 undef $flags[$k] while (($k+=$i) < 8193);
                 $count++;
    }
}
print "Count: $count\n";


Andy Bach, Sys. Mangler
Internet: [EMAIL PROTECTED] 
VOICE: (608) 261-5738  FAX 264-5030

80% of those interviewed said they would lie on a survey.