Solutions by Markus Holzer.

Solution #2 only works on the current developer branch and uses a module I wrote 
Please see https://github.com/holli-holzer/perl6-Scalar-History
To be on CPAN soon