use Sort::Fields;

my $sorter = make_stable_fieldsort( '(\d+)#', [ '2n', '3n', '1' ] );

my @sorted = $sorter->( @unsorted );  # voila