my $z = identity(3); print $z;