Join function

truthseeker66 has asked for the wisdom of the Perl Monks concerning the following question:

When I execute this I expect see
'five-@-four-@-one-@-three-@-two'

#!/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";
[download]

But why do I see?
'The string contains five-four-one-three-two'

Back to Seekers of Perl Wisdom