#!/usr/bin/perl
use warnings;

@this_array = ("b", "a", "d", "c");
foreach($this_array){
	print("$_\n");
}