CODEを引数として受け取るようなサブルーチンを作りたいんだけど、上手くいかない。
やりたいのは

foo { some code; } $bar, $baz;

みたいに、第一引数にCODEを受け取るモノなんだけど
これは sub foo(&@){ } で出来た。
この foo を

foo $bar, $baz;

のように、CODEを省略してもOKな様にしたい。
引数の受け取り方は sort みたいな感じ。

別に明確な目的がある訳じゃなく
出来るなら試してみたいって程度なんだけど