use strict;
use warnings;

my @strings = ("Jessy", "Bob", "Nancy");
for (@strings) {
	print $_, "\n";
}