#!perl

use strict;

use warnings;

my @list = glob("*");

foreach(@list){

    (my $dev,   my $ino,     my $mode, my $nlink, my $uid,
     my $gid,   my $rdev,    my $size, my $atime, my $mtime,
     my $ctime, my $blksize, my $blocks) = stat;

     # do processing here

}