#!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
}