open(RES, "<res.txt");
open(SIZES, "+>size.txt");

while(<RES>)
{
	next unless /^\+\+\+/;
	($file) = /\+\+\+ (.*)\n/;

	$sizes{-s $file} =  $file;
}


for(sort {$a <=> $b} (keys(%sizes)))
{
	print SIZES "$_ - $sizes{$_}\n";
}

close(SIZES);
close(RES);