$ > Y
$ > X
$ > Z
$ 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