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

my @array = qw(one two three four five six seven eight nine ten);
print "The original array contains -\n   @array \n";
my @sorted = sort  @array;

print "The sorted array contains:\n  @sorted \n"; 

my %order =( one    => 1,
             two    => 2,
             three  => 3,
             four   => 4,
             five   => 5,
             six    => 6,
             seven  => 7,
             eight  => 8,
             nine   => 9,
             ten    => 10);

@sorted = sort{ $order{$a} <=> $order{$b}} @sorted;

print "Now The sorted array contains:\n  @sorted \n"; 

__END__
The original array contains -
   one two three four five six seven eight nine ten 
The sorted array contains:
  eight five four nine one seven six ten three two 
Now The sorted array contains:
  one two three four five six seven eight nine ten