Perl6 style Junction operators in Perl5
