foreach my $filename ( sort { $hash{$a} <=> $hash{$b} } keys %hash )
{
    next unless -f $filename;

    format STDOUT =
@<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>>
    human_readable_fsize( $hash{$filename} ),          $filename
.
write;
}