#Is this efficient enough, or do I need something else?
sub align{
	open (DEST, ">$file2") || die print "Can't open for Write";
	print DEST @buffer;
	close DEST;
}