foreach $name (@all_names) {
    print "The next name is $name\n.";
}