BEGIN{i=0}
{file[i]=$1;i++}
END{
 {for (k=0;k<i;k++) {
  {name=substr(file[k],0,length(file[k])-4);dat=name ".html"}
  {print "<img src="file[k]" tag="name">  " >  dat}
 }}
}