A solution could be a junction, but we are speaking about Perl 5, and junctions will come with Perl 6... Any Perl 5 solution of this problem?

Junctions are called Quantum::Superpositions in Perl 5 :)