$data[$[] = scalar localtime;
foreach my $site (@sites){
       # call the sub
       my $elapsed_time = &getpages($site);
       push @data, writevalues($elapsed_time);
    }
open(OUTFILE,">>$datafile") || die "Cannot open $datafile :$!"; 
     foreach $data (@data) {
       print OUTFILE "$data ";
     }
     print OUTFILE "\n";
   close OUTFILE;