# 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