#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use Data::Dumper;
sub Open_dir
{
    my($pam1) = @_;
    opendir(DH, "$pam1") or die "Don't open $pam1 $!";
    my @files = readdir(DH);
    @files = grep /^.../, @files;
    closedir(DH);
    return @files;
}
sub Vyhlop
{
    my($pam1) = @_;
    say Dumper $pam1;
}

sub Search_file
{
    my($pam1) = @_;
    my @files = Open_dir("$pam1");
    my @List1 = ();
    foreach my $file (@files)
    {
        open(my $fh, '<', "$pam1/$file") or die "Don't open '$file' $!";
        while (my $line = <$fh>)
        {
            push (@List1, $file);
        }
    }
        return @List1;
}
my @files = Search_file('temp_dir');

say Dumper \@files;
sub Remove_ext
{
    my($pam1) = @_;

    foreach my $config (@$pam1)
        {
            $config =~ s/(.+)\.[^.]+$/$1/;  #############
            #$config = basename($config, '.txt'); ######YYYYY+++
            #print "$config\n";

        }
}
Remove_ext(\@files);
Vyhlop(\@files);