#!c:/perl/bin/perl

use strict;
use warnings;

my @aps;
my $new_hash = {};
#Here I pull in a text file and parse it line by line, which I'm 
#omitting, but it's a while loop that populates the 
#hash and pushes to the array
$new_hash->{'ap_name'} = "AP One";
$new_hash->{'ap_MAC'} = "00:00:00:00:00:00";
$new_hash->{'ap_model'} = "1131";
push (@aps, $new_hash);