Select Code to Download

#!/usr/bin/perl

...
    [  10,  20,  30 ],
    [ 100, 200, 300 ],
];

my $gpat = do {
    local $" = '}\ -\ {';
...
    print glob $gpat;
    print $/;
}

__END__
{1,2,3,4}\ -\ {10,20,30}\ -\ {100,200,300}
...
4 - 30 - 100
4 - 30 - 200
4 - 30 - 300