#!/usr/bin/perl
use strict;
use warnings;

my $dir = '/path';
my @names = map {[$_, -s]} glob "$dir/*";
for (@names) {
	printf "%-10s%s\n", reverse @$_;
}