#!/usr/bin/perl -w

use strict;
use warnings;

my @Array_test = system('fgrep "(22.5.1983)" /test/old/* -l');

foreach my $x (@Array_test)
{
        print "Debug: ".$x."\n";
}