#!/usr/bin/perl -w

@array  = (1, 2, 3);

$string = join('-', @array);
    
print "($string)\n";