use List::Util qw(shuffle);
my @lines = shuffle(<IN>);
print OUT @lines[0 .. 299];