if (!-e "$log"){
open(CREATE, "+>>$log") or die "$log failed: $!\n";
while (<CREATE>){
 
foreach $ser(@ser) {
printf "%3s",$ser;
}

print "\n";
  }
close (CREATE);
# WHAT AM I DOING WRONMG HERE??
}