Perl: tableau+proprietes fichier

Bonjour à la communauté, voici un script qui affiche la liste des fichiers contenant le mot "successfully" le pb est que d'un je voudrais que le resultat soit sous forme de tableau en fixant les entetes nom, statut(successfully), date et de 2 la date est celle retrouve dans les proprietes du fichier(date de derniere modification) aidez moi
#!/usr/bin/perl -w
use strict;
use warnings;
my $fich;
my $rep;

print "donner le chemin du repertoire:\n";
$rep=<stdin>;
chomp $rep;
opendir(DIR,"$rep") or die "repertoire introuvable";
my @tab=readdir(DIR);
while(defined($fich=readdir(DIR)))
{ print"$fich\n";}
closedir(DIR);
my $msg="statut ok ";
foreach (@tab) {
next if -d $_;
my $full_path= "$rep/$_";
open reader,"< $full_path" or die "le fichier n'existe pas !\n";
open writer,">> results.doc" or die "le fichier ne peut etre edite !\n";
my @ligne=<reader>;
my $chaine="successfully";
foreach (@ligne)
{ if ( $_=~/$chaine/)
{print writer $full_path.$msg;}
}
}
close reader;
close writer;
exit;