Hie monks, I have got a problem with the require function and default package.I cannot understand the following behavior.

I have a script 
use strict;
use warnings;

require "env.pl";
foreach my $file("env.pl","env1.pl")
{
    $main::var="default";
    require "${file}";
    print "\nIn $file var is : $main::var\n";
}

[download]
and a file 'env.pl' which contains
$var="env";
1;

[download]
Another file 'env1.pl' which contains 
$var="env1";
1;

[download]
All in the same folder.Now If I run the script I get the o/p 
In env var is : default

In env1 var is : env1

[download]
But If I comment Line 4 
require "env.pl"

[download]
in my script It works fine. So Why is that If read $main::var then modify it then read it again from the same file it's value is not changing??
I suspect that the 'require' in the for loop sends the variable to some other package other than main.

The world is so big for any individual to conquer

In reply to Problem with require and default package by narainhere

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.