Select Code to Download

my (%hash, $line);
while ($line = <STDIN>) {
...
    }
}
print "$_\n" for sort keys %hash;

my ($line, $prev);
$prev = "";
...
        $prev = $word;
    }
}