sub ident { shift }

bless \(ident($_)) => 'Foo' for 3;