Help for this page
$ > Y $ > X ... $ perl -E 'my @f = qw{X Y Z}; say "@f"; @f = sort { -M $b <=> -M $a } +@f; say "@f"' X Y Z Y X Z