my $re=join "", @list; $re="[$re]";