sub filter (&@) {map {local $_ = $_; $_ [0] -> (); $_} @_ [1 .. $#_]}