$mac = join ':', map {sprintf '%02X', hex $_} @mac; # @mac added