What a gem. (Or was it black coal?)

@sorted =
map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
map { [ $_, (-s $_) ] }
@unsorted;

See http://www.perlmonks.org/?node_id=400272