# You don't want to do this for each line!
open HTML ">C:/Users/jk/Desktop/fun/perl/$site.html";

foreach(<@node>)
{
$death=$_;
print HTML "$death\n";
}