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

##</code><code>##

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

# Fudge up some sample data
my @records = (['Eagle', 'Bird', 'Feathers'],
               ['Moose', 'Mammal', 'Fur'],
               ['Adder', 'Snake', 'Skin']);

# Insert the record number column
@records = map { [$_, @{$records[$_]}] } (0..$#records);

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

##</code><code>##

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