Dear Monks,

I have this snippet (credit Aighearach) that try to open files under subdirectory 'mysubdir'
and then stored them into a hash with filename as key and its content as values.

#!/usr/bin/perl -w
use Data::Dumper;
use strict;

my $mydir = 'mysubdir\*';
my @filear = glob($mydir);

my %hash = make_hash(@filear);

sub make_hash { 
    (local $/)=undef; 
    my (@files,%hash); 
    @files = @_; 
          
    foreach my $file ( @files ) { 
     open( my $fh, $file ) or next; 
     $hash{$file} = <$file>; # This line gives "unopened filehandle wa
+rning"
    }; 
   return %hash; 
 }

print Dumper \%hash;
[download]

However, instead of giving the file contents as its values, it gives "undef" instead, like this.

$VAR1 = {
          'mysubdir\\file1.txt' => undef,
          'mysubdir\\file2.txt' => undef
        };
[download]

Please advice what's wrong with my code above.