@large_files = grep { -s $_ > '5' } @files;

##</code><code>##


#!/usr/bin/perl

use strict;
use warnings;
use Carp;
use Data::Dumper;

my (@files,@large_files);
print "\nPlease enter filesystem name in the form of '/fsname'\n";

my $fs = <>;
chomp ($fs);

opendir(DIR, $fs) or croak "opendir failed: '$fs' $!";
    @files =
        grep { -f "$fs/$_" and /^\.*/ } readdir(DIR);
closedir (DIR) or carp "dir '$fs' not closed $!";

print Dumper(@files);
print "\n\n\n";
@large_files = grep { -s $_ > '5' } @files;

print Dumper(@large_files);
exit;