print "INC PATHs\n";
foreach (@INC)
{
   print "$_\n";
}
print "\n\n";
print "INC HASH\n";
foreach (keys %INC)
{
   print "$_ => $INC{$_}\n";
}