#!/usr/bin/perl
use warnings;

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