Optimising Perl 6

Lets try it in Perl 6.

sub fib-optimised { @_[0] > 1 ?? fib-optimised(@_[0] - 1) + fib-optimised(@_[0] - 2) !! @_[0]; }
Optimized 0.4099719

Oops. Four times slower than the basic version.