#!/usr/local/bin/perl -w

use strict;

my %File=map {$_,(stat)[10]} </home/choas/*>;
print "$_: $File{$_}\n" for sort { $File{$b} cmp $File{$a} } keys %File;