# Simple array
my @array = qw(test1 test2 test3 test4 test5);
# Printing one-liner 
print join ("\n", @array), "\n";