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