http://www.perlmonks.org?node_id=66696


in reply to Sort on boredom

Just for the heck of it:
#!/usr/bin/perl -w use Data::Dumper; $Data::Dumper::Indent = 1; @vals = qw( 1 2 3 1 3 3 3 43 bob 2 bob 6 2 ); my @sorted = sort { $#$b <=> $#$a or $a cmp $b } keys %{{ map { @$_ = ( @$_, $_ ); $_ => 1 } @vals }}; print Data::Dumper->Dump([\@sorted], ['*sorted']);
or as a 1-liner:
perl -le '$,=", ";print sort { $#$b <=> $#$a or $a cmp $b}'\ -e 'keys %{{ map {@$_ = (@$_, $_); $_=>1} @ARGV}};'\ 0 _ __ 0 __ __ 0 0 00 @ % $ % ^ ^_ result-> 0, __, %, $, 00, @, ^, ^_, _


p