#!/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]";

##</code><code>##

123
1
Biggest: 123
Next biggest: 1

##</code><code>##

my ($biggest, $next_biggest) = @emptyfiles[0, 1];

##</code><code>##

$previous = ($emptyfile)-1);

##</code><code>##

$ perl -wE 'my $x; say($x - 1)'
Use of uninitialized value $x in subtraction (-) at -e line 1.
-1