Re^3: Chomping Lines, Storing as Hash, and Printing "keys" from Hash

Take a look at here-doc in Quote and Quote like Operators

#!perl
use strict;
my %data = ( 11111=>1,22222=>2 );

open FILEPNP,'>','zzzzz.tmp' or die "$!";
for my $k (keys %data){
  print FILEPNP <<EOF;
<div>
<a href="/$k.html">$k</a>
</div>
EOF
}
[download]

poj

Comment on Re^3: Chomping Lines, Storing as Hash, and Printing "keys" from Hash Download Code