my @array= qw(foo bar baz);
my $ref= \@array;

print join ':' => @$ref;

__END__
foo:bar:baz