for ( @data ) {
   sysopen ($fh, "$log", O_WRONLY|O_APPEND);
   $fh->print ("$_");
   close $fh;
}