sub test ($x) {
        return $x ~ " test";
}


# outputs (&test !* &test) test test
say (&test !* &test)('&test !* &test');