my @sort = sort { $a <=> $b } @size;
foreach(@sort)
{

       if (-f, "$for{$_}" && !(-d "$for{$_}"))
       {
       my $data = $_;
               if ($_ < 1024)
       {
               $_ .= " bytes";
       } elsif ( $_ > 1024 && $_ < 1048576)
       {
               $_ = sprintf("%.2f", $_ / 1024);
               $_ .= " kb";
       } elsif ( $_ > 1048576 && $_ < 1099511627776)
       {
               $_ = sprintf("%.2f", $_ / 1048576);
               $_ .= " mb";
       } else
       {
               $_ = sprintf("%.2f", $_ / 1099511627776);
               $_ .= " gb";
       }
format STDOUT =
@<<<<<<<<<<<<<<<<< @>>>>>>>>>>>>>>
$for{$data},          $_
.
write;
}