Almost right. It indeed is Abigail's, but the obfu looks slightly different. perlman:perlfaq/perlman:perlfaq1/What is a JAPH? points to http://www.perl.com/CPAN/misc/japh and that one shows us:

$;                                   # A lone dollar?
=$";                                 # Pod?
$;                                   # The return of the lone dollar?
{Just=>another=>Perl=>Hacker=>}      # Bare block?
=$/;                                 # More pod?
print%;                              # No right operand for %?
[download]

Besides, jeffa /msged me that this code can also be found on PerlMonks :)