跨多列排序(Perl)

目前,代码：
1.获取$目录中的@list文件
2.使用正则表达式为@list中的每个元素获取$filename,$fileLOCATIOn和$fileSize
3.将(2)中的3个值打印成3个固定宽度的列
4.然后打印出文件总数和目录大小@H_616_7@

我希望输出显示排序依据：
1. $filename然后
2. $fileLOCATIOn然后
3. $fileSize@H_616_7@

$directory = '/shared/tmp';
$count = 0;

@list = qx{du -ahc $directory};

printf ("%-60s %-140s %-5s\n","Filename","LOCATIOn","Size");

foreach(@list) {
  chop($_);                                                     # remove newline at end
  if (/^(.+?K)\s+(.+\/)(.+\.[A-Za-z0-9]{2,4})$/) {              # store lines with valid filename into new array
#    push(@files,$1);
    $fileSize = $1;
    $fileLOCATIOn = $2;
    $filename = $3;
    if ($filename =~ /^\./) {
      next; }
    printf ("%-60s %-140s %-5s\n",$filename,$fileLOCATIOn,$fileSizE);
    $count++;
  }
  else {
    next;
  }
}

print "@R_724_10586@l number of files: $count\n";

$@R_724_10586@l = "$list[$#list]";
$@R_724_10586@l =~ s/^(.+?)\s.+/$1/;
print "@R_724_10586@l directory size: $@R_724_10586@l\n";