Select Code to Download

#!c:/perl/bin/perl

...
$new_hash->{'ap_MAC'} = "00:00:00:00:00:00";
$new_hash->{'ap_model'} = "1131";
push (@aps, $new_hash);

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