opendir(my $dh, "/home/anonymous_monk") or die("ack - $!");
my @list = ();
while(my $fl = readdir($dh)) {
    push @list, [ (stat($fl))[1,8] ];
}
print "inode: $_->[0]\n" for sort { $a->[1] <=> $b->[1] } @list;