# Delimiter and Array
my $ref = {
        DEL => ';',
        ARR => [1,2,3,4,5],
};

my $str = array_to_string($ref) or die "no delimiter is given";
print $str;


sub array_to_string{
        my $ref = shift;
        if(exists $ref->{DEL}){
                return join($ref->{DEL}, @{$ref->{ARR}});
        }
        else{ return }
}
# 1;2;3;4;5