Select Code to Download

rand () < 0.5 and print while <>;

open my $rndLines, '<', "rand_sorted.txt" or die "Can't open rand_sort
+ed.txt: $!";
my %lines = map {$_ => undef} grep {chomp; length} <$rndLines>;
close $rndLines;

exists $lines{$.} and print while <>;