sub sum
{
    my $a = shift;
    $a + $a;
}

my @data;
for (0..10000) {
    push(@data, 3.1415926 * $_);
}

for ($i = 0; $i < @data; $i++){
    for ($j = $i + 1; $j < @data; $j++){
        sum($data[$i] * $data[$j]);
    }
}

__END__
#include <limits.h>

double
test(double x)
{
    return x + x;
}

#define SIZE  10000

main()
{
    int i, j;
    double data[SIZE];
    int x;

    for (x = 0; x < SIZE; x++) {
        data[x] = 3.1415926 * x;
    }

    for (i = 0; i < SIZE; i++){
        for (j = 0; j < SIZE; j++){
            test(data[i] * data[j]);
        }
    }
}