my $result = sprintf '#(#string#%s#)#',join('#;#string#', @array);