#!/usr/bin/perl              
use strict;  
use warnings;
             
my @last_few_lines;          
while (<DATA>) {             
    push @last_few_lines, $_;
    shift @last_few_lines if @last_few_lines>3;                                                                               
}            
print $_ for @last_few_lines;
             
__DATA__     
Adam Ant     
Bananarama   
Cyndi Lauper 
Devo         
Enema M      
Frank Zappa  
George Strait
Hanna Banana