use Benchmark qw{ timethese };

timethese( -2, {
	Ordinary => q{
		my @results = sort { -M $a <=> -M $b } glob "/bin/*";
		},
	Schwartzian => q{
		map $_->[0],
		sort { $a->[1] <=> $b->[1] }
		map [$_, -M],
		glob "/bin/*";
		},
	});