#!/bin/perl

use strict;
use warnings;

my @items = init_items();

print "Printing the array ...\n";

foreach my $item (@items) {
    print_items($item);
}

######################

sub init_items {
	return (
		{
			id => 1,
			status => 0, 
			loc => 'awx1',
		}, 
		{
			id => 2, 
			status => 1, 
			loc => 'xxx1', 
		},
	);
}

sub print_items {
    my $item = shift;
    print "Thread <$item->{id}>, status <$item->{status}>, location <$item->{loc}>\n";
}