for ( 4 .. 6 ){
    print "$_\n";
    for ( 0 .. 10 ){
        print "\t$_\n";
    }
}

##</code><code>##

my %stopwords = map { $_ => } <$excludes>;

while( <$large> ){
    print unless $stopwords{$_};
}