package MyOrder;

my %order = ( );

sub SortCriteria {  
  if ( exists $order{$a} and exists $order{$b} ) {
    return $order{$a} <=> $order{$b}
  } elsif ( exists $order{$a} ) {
    return 1
  } elsif ( exists $order{$b} ) { 
    return -1 
  } else { 
    return $a cmp $b 
  } 
}

sub SortMyWay { 
    my $list_ref = shift; 
    return [sort SortCriteria @$list_ref]; 
}

package main;

use strict;

my @foo = qw( j a p h , );

my $bar = MyOrder::SortMyWay(\@foo);
my @bar = @$bar;

print "@bar";