#!/usr/bin/perl
open (FILE,"file1");
@cnt_file = <FILE>;
$cnt = @cnt_file;
print "$cnt\n";
open (MYFILE,"file2");
$line = <MYFILE>;

foreach $line (<MYFILE>) {
print "$line" if $. >= $cnt;
}