Select Code to Download

      @array = ($new, @array);        # new 1st element
   or @array = (@array, $new);        # new last element
   or @array = ($new, @array, $new2); # both

#!/usr/bin/perl -w
use strict;

...

# Show the result
print "@$_\n" for @records;

for my $i (0..$#records) {
   @{$records[$i]} = ($i, @{$records[$i]});
}