#!/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;