open(OUT,">outfile") || die;
for($i=0;$i<=$#bigfile;$i++){
  $bigfile[$i] =~ s/\0/ /g;
  print OUT "$bigfile[$i]";
}
close(OUT);
print "Compressing original file\n";
system("compress original.file");

print "Concatenating other data\n";
system("cat ./incoming/data.file ./static/data.file >> outfile");

print "Sorting Data File\n";
system("asort outfile clean.data 1 6 8 9");

print "Done.\n";