use strict; use warnings; my %sorts = ( 'case' => sub {return sort @_}, 'ignore' => sub {return sort {uc $a cmp uc $b} @_}, 'num' => sub {return sort {$a <=> $b} @_}, 'len' => sub {return sort {length $a <=> length $b} @_}, ); my $modeMatch = '(' . join ('|', keys %sorts) . ')'; sub shortSorts { my ($type, @list) = @_; my ($mode) = lc ($type) =~ $modeMatch; @list = map {scalar reverse $_} @list if $type =~ /\brev\b/i; @list = $sorts{$mode}->(@list); @list = map {scalar reverse $_} @list if $type =~ /\brev\b/i; @list = reverse @list if $type =~ /\bdesc\b/i; return @list; } my @unsorted_array = qw(Red yellow Green cyan Blue magenta); for my $sortType ('case rev desc', 'case desc', 'ignore') { print "$sortType:\n ", join (', ', shortSorts($sortType, @unsorted_array)), "\n"; }