use 5.020;
use feature 'experimental::signatures';
no warnings 'experimental::signatures';

sub preload_module( $base_dir, $modulename ) {
    my $final_name = $modulename;
    $final_name =~ s!::!/!g;
    require "$base_dir/$final_name.pm";
}

BEGIN {
    preload_module('/some/perl5/dir', 'List::Util' );
    preload_module('/some/perl5/dir', 'Scalar::Util' );
    preload_module('/some/other/perl5/dir', 'Another::Module' );
}

use List::Util 'reduce';

##</code><code>##

use 5.020;
use feature 'experimental::signatures';
no warnings 'experimental::signatures';

my %module_map = (
    'List/Util.pm' => '/some/path/to/perl/modules',
    'Scalar/Util.pm' => '/some/other/path/to/perl/modules',
);

sub find_correct_module( $self, $module_file ) {
    my $real_module = $module_map{ $module_file } // $module_file;
    open my $fh, '<', $real_module or croak $!;
    return $fh
}

BEGIN {
    unshift @INC, \&find_correct_module;
}