use strict;
use warnings;

use File::Basename;
use Data::Dumper;

my @files = glob(".* *");

my $dir = '/home/test';

foreach my $file ( @files ) {
    next if ( $file eq '.' or $file eq '..' );
    my @matches = glob("$dir/$file*");
    if ( @matches ) {
        print Dumper(@matches);
    }
}