#!/usr/bin/perl
open IN, "list.old";
open OUT, ">list.html";
while(<IN>)
{
$len=length($_)+100;
$_="<!$len>$_";
push @list, $_;
}
foreach(sort(@list))
{print OUT;}