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