Same approach you took, but clearer and faster:

use Sort::Key qw( ikeysort );

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