use strict;
use warnings;

my @files = glob('./*');
my %stat = map {
    $_ => {
        r => (-r $_),
        w => (-w $_),
        x => (-x $_),
        s => (-s $_),
    }
} @files;

# print out all sizes, as an example
print $stat{$_}{s}, $/ for @files;