use subdir::Somemodule qw(%myhash);
print join ("\n", keys %myhash), "\n";
__END__

##</code><code>##

$>perl -I. import_test.pl

##</code><code>##

use subdir::Somemodule;
import Somemodule qw(%myhash);
print join ("\n", keys %myhash), "\n";
__END__

##</code><code>##

# delete the 'subdir' from the use
#
use Somemodule qw(%myhash);
print join ("\n", keys %myhash), "\n";
__END__

##</code><code>##


$> perl -I 'subdir' importest.pl


##</code><code>##

This is perl, v5.6.1 built for MSWin32-x86-multi-thread