if ($last =~ m/\d/g) {
        die "Surname should only contain letters, hyphens and apostrophes!";
}