use Sort::Key qw( ikeysort );

my @sorted = ikeysort { $order{ fc( $_ ) } } @unsorted;