Anagrammer

#!/usr/bin/env perl6

my $phrase = prompt "Enter what you wish to anagram: ";
say "Removing everything except letters";
$phrase ~~ s:g/<-alpha>//;
die("You didn't enter any letters!") if $phrase.chars == 0;
say "String to be anagrammed:  $phrase";

$phrase = $pharse.lc;
say "{[*] 1..$phrase.chars} possibilities (counting the original string)";

my $arraylength = $phrase.chars;
my @anagrams;

while @anagrams.elems < $arraylength {
    $_ = $phrase.comb.pick(*);
    @anagrams.push($_) if !([+] ($_ «==« @anagrams));
}

say "Results:";
say @anagrams.join("    ");
say "DONE!";