sub narray (&@);

$ar = narray {$_[0]} 3;