my $result = '#(#string#' . join('#;#string#', @array)
                          . '#)#;

##</code><code>##

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