my $id = sub { wantarray ? @_ : $_[0] };