#!/usr/bin/perl

use strict;
use warnings;

my $path = "/tmp/dir1";
my %filesize = map { $_ => -s } <$path/d1*>;
my @sorted = sort { $filesize{$b} <=> $filesize{$a} } keys %files;

printf "Largest file: %s (%d bytes)\n", $sorted[0], $filesize{$sorted[0]};