my $gpat = do {
    local $" = '}\ -\ {';
    qq({@{[
        map {
            local $" = ',';
            "@$_";
        } @$data
    ]}});
};

print $gpat, $/;
{
    local $, = "\n";
    print glob $gpat;
    print $/;
}