my @files = glob "*.txt";

my $largest = shift @files;

for my $file (@files) {
	$largest = $file if -s $file > -s $largest;
}