Select Code to Download

#!/usr/bin/perl
use strict;
...
for( $i = 0; $i < 5; $i++ ) {
  printf "%d: %s %d %f\n", $i, $a[$i], $a[$i], $a[$i];
}

0: 0 0
1: 1 1
...
2: 2 1 2.000000   *
3: 3 3 3.000000
4: 4 4 4.000000