#!c:/Perl/bin/perl

my @mac_addrs = ("0015FAA3F03A", "0015FAA3F03B", "0015FAA3F03C");

# CONVERT THE MAC ADDRESS ##########################################################
sub convert () {

my @array = @_;
print "Inside convert: @array\n";
my @hold;
my $j = 0;
my $length = scalar(@array); #Number of records in the input array
print "Length of inner array: $length\n";

for ($j; $j<$length; $j++) { #This loop is setup so that its iterations equal the number of elements in the input array
print "Value of j is: $j\n";
$element = lc($array[$j]); #Convert uppercase MAC to lowercase
print "Inside element: $element\n";
    my $i = 0;
    @hold = (); #Reset the temporary hold array used to create the $out variable
    while ($i<length($element)) { #for each element of the array, break it up into the 3 groups of 4 letters each
        push (@hold, substr($element, $i, 4));
        print "While substring: " . substr($element, $i, 4) . "\n";
        $i += 4;
        print "Just finished substring: @hold\n";
    }
my $out = "AP" . $hold[0] . "." . $hold[1] . "." . $hold[2]; #Store the results to a variable to be added to output array
print "Out: $out\n";
push (@array, $out); #Add the newly converted MAC address to our array
shift (@array); #Remove the original MAC addresses one at a time as they're not needed outside the sub

}
return @array;
print @array;
}

# CONVERT THE MAC ADDRESS ##########################################################