$writefile = pop;
@arraytowrite = @_;