map { $_ => do { local ($/,*F); open F, "<$_" or die 
             "Error reading '$_': $!"; <F> }} glob('*')
       #or
       
       map{$_=>do{open my $fh,$_ or die"$_:$!";<$fh>}}glob('*')