$string = ("1","2","4",...)
@array1 = (1 2 4 5 8 4);
@array = qw/1 2 3 4/;
1234
use strict;use warnings;my @array = qw/1 2 3 4/;my $string .= "\"$_\"," for @array;
123
my @array = ("A", "B", "C");my $reAsStr = join("|", @array);my $re = qr/$reAsStr/;