#!/usr/bin/perl -l

use strict;
use warnings;
use autodie;

my $dir = '.';

opendir(my $dh, $dir);
my @emptyfiles = sort { $b <=> $a } grep { -f && /^\d+$/ && -z } readdir $dh;
closedir $dh;

print for @emptyfiles;
print "Biggest: $emptyfiles[0]";
print "Next biggest: $emptyfiles[1]";