Yes you can. You don't even need to go as far as you're thinking about.

BEGIN {
    sub funky_reverse : lvalue {}
    *CORE::GLOBAL::reverse = \&funky_reverse;
}
[download]

It doesn't help you, though. You really want to return an alias (or a list thereof), not any old lvalue(s). And that's not something you can do in vanilla Perl. You need something like Data::Alias.