BEGIN {
	$t = (5, comm, "str", probe);
	@u = $t;
}

END {
	print(@u)
}