@record = reverse @record;
    
my @record1;
my $count = 0;
    
while (($count < 5) && (my $line = @record)) {
    push (@record1, $line);
    $count += 1;
    }
print "@record1";