I had to indent your code before I was able to read it. Then I simplified it a bit, so that I could execute it (I needed a substitute for your data file):

#!/usr/bin/perl

use warnings;


$putword=0;
$q63=7;

&getfile("query63.txt");

sub getfile   {
    @data=(1);
    for($i=0; $i<=$#data;$i++){

    $index=$i;
    @words=split(/\s+/,$data[$index]);
    if(3==2)  {   
        if (1 != 0){
        }
    }
    else {

        @words = split(/\s+/,$data[$index]);
        %query=(2 =>{ctf=>5,
                df=>5,
                1=>{doclen =>42,
                        tf =>5,
                }
                    },
        );
            #When I write here,I can get value..here inside the loop  
+ 
        print "inside ",$query{2}{1}{doclen},"\n";
    }
    }

    #when I write here,I got nothing,,this is outside of loop..
    print "outside ", $query{2}{1}{doclen},"\n";
}

# prints:
#inside 42
#outside 42

[download]

The output was as expected quite sensible. So if you don't get anything outside the loop, your loop probably deleted or overwrote again the data it printed inside the loop

Very good advice from toolic, especially Data::Dumper should help you greatly in finding the problem.

In reply to Re: accessing hash by jethro
in thread accessing hash by historysav

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.