my @default = ($so);
my @log_and_print = ($log, $so);

mprint @default, "Standard message\n";
mprint @log_and_print, "This goes to log and screen\n";