$writefile = shift;
$text = shift;
@arraytowrite = @_;