#!perl

# Name: Index arrays
# Require: 4
# Desc:
#


require 'benchlib.pl';

@a = (1..1000);

&runtest(20, <<'ENDTEST');

   $a = $a[0] + $a[534];
   $a = $a[1] + $a[535];
   $a = $a[2] + $a[536];
   $a = $a[3] + $a[537];

   $a[500] = $a[200];
   $a[501] = $a[201];
   $a[502] = $a[202];
   $a[503] = $a[203];

ENDTEST