my @friends = qw(john steve carl);
for my $friend (@friends) {
    say "Hello, $friend!";
}