Select Code to Download

#!/usr/bin/perl -w
use strict;
my(%hash,$i);
@hash{map($i++.":$_", <>)} = ();
print "$_\n" for map /^\d+:(.*)/, keys %hash;

#!/usr/bin/perl -w
use strict;
my(%hash,$i);
@hash{map join(":", $i++, int rand $i, $_), <>} = ();
print "$_\n" for map /^\d+:\d+:(.*)/, keys %hash;