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

my $files = [glob('*')];
print "@{$files}\n";

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @filenames = glob('*');
my %files;
foreach my $fname (@filenames) {
    my $size = (stat($fname))[7];
    $files{$fname} = $size;
}

print Dumper(\%files);