Adding perl6 behavioral - strategy