Hi jonnyfolk,

one way would be

#!/usr/bin/perl -w

use strict;

my $record='DATA';

open (FILE, "$record") or die $!;
my @record = reverse <FILE>;
print "@record[0..9]";
[download]

cheers

thinker