You have two surnames and want to know if they sound similar
#!/usr/bin/env raku
use v6;
use Algorithm::Soundex;
my Algorithm::Soundex $s .= new();
say $s.soundex("Smith");
say $s.soundex("Smythe");
say $s.soundex("Bloggs");
# vim: expandtab shiftwidth=4 ft=perl6