my $x=\"foo";
my @array=("$x",$x);