#!/usr/bin/perl -w

use strict;

my $record='DATA';

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