use strict;
use warnings;

my ($line,@cnt_file,$cnt); 
#!/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;
}