#!/usr/bin/perl
use strict;
use warnings;

my@array = qw(one two three four five);
print "The original array contains @array \n\n";
my$string = join ("-@-", sort@array);
print "The string contains $string \n";