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

sub convert {
    return map { "AP" . join ".", unpack "(A4)*", lc $_ } @_;
}

print "$_\n" for convert(@mac_addrs);