my $allowed = ##NUMBER ALLOWED##;

my @file = <DATA>;
my $lines = @file;

if($lines >= $allowed){
  &my_sub() for($allowed..$lines);
}