my $file = (-s $_);
$for{$file} = $_;