Okay, combining all these approaches minimalistically but without golfing we get something like:
my @numbers = sort { rand }, constant @goal = 1..9; my $steps = 0; until @numbers ~~ @goal { say [EMAIL PROTECTED]; @numbers[ 0 ..^ prompt "Reverse how many? " ] .= reverse; ++$steps; } say "Done! That took you $steps steps."; Larry