my @mac_add = qw/28 8a 1c 59 cc 85/; my (@list,@parts); @list = @mac_add; while(@list) { push @parts, join '', splice @list,0,2 } my $mac_R5 = join '.',@parts;