for (@custinfo) {
    next if !/:/;
    my ($key, $val) = split(/\s*:\s*/, $_, 2);
    if ($key eq 'MACADDRESS') {
        push @{ $cust{$key} }, $val;
    } else {
        $cust{$key} = $val;
    }
}
[download]