#!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);

##</code><code>##

for my $i (0 .. $#aps) {
  if $aps[$i]->{'ap_MAC'} eq "00:00:00:00:00:00" {
    $aps[$i]->{'serial'} = "FTX12345678";
  }
}