Please, before posting, read the guidelines and use a </{0,1}CODE> tags around your code, or else it will look like the above, which is not valid perl. For those curious, the poster meant for a <STDIN> to appear in the "chomp" line, and the while line to say while(<DATA>) {

P.S. I think that

print if /$letter/i;
[download]

is shorter and a bit clearer.