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

my @sorted = ("a" .. "z", "A" .. "Z");
my @needs_sorting = ( qw (P l E a S e s O r T) );

my %S;
@S{@needs_sorting} = ();
my @is_sorted = grep { exists $S{$_} } @sorted;

print join "|",@is_sorted;