sub mymap (&@) { map { &{$_[0]}() } @_[1..@_-1]; }