Select Code to Download

#!/usr/bin/perl -l

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

123
1
Biggest: 123
Next biggest: 1

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

$previous = ($emptyfile)-1);

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