doubt in %main

while (my ($key,$value) = each(%main:) {

    local(*gl) = $value;

    print "$key - $gln";

}


What does the above sample code print?



Send free SMS to your Friends on Mobile from your Yahoo!
Messenger. Download Now! http://messen
ger.yahoo.com/download.php




Send free SMS to your Friends on Mobile from your Yahoo!
Messenger. Download Now! http://messen
ger.yahoo.com/download.php

[Non-text portions of this message have been removed]



Unsubscribing info is here: h
ttp://help.yahoo.com/help/us/groups/groups-32.html 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://g
roups.yahoo.com/group/perl-beginner/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http
://groups.yahoo.com/group/perl-beginner/join
    (Yahoo! ID required)

<*> To change settings via email:
    mailto:perl-beginner-digest@yahoogroups.com 
    mailto:perl-beginner-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
    perl-beginner-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.c
om/info/terms/
 

On 12/21/06 6:09 AM, sathiya perl at perl_sathiyayahoo.co.in wrote:

> 
> 
> 
> while (my ($key,$value) = each(%main:) {
> 
>     local(*gl) = $value;
> 
>     print "$key - $gln";
> 
> }
> 
> 
> What does the above sample code print?

Nothing ventured, nothing gained ... Why don't you run the
script and find
out ... 





Unsubscribing info is here: h
ttp://help.yahoo.com/help/us/groups/groups-32.html 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://g
roups.yahoo.com/group/perl-beginner/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http
://groups.yahoo.com/group/perl-beginner/join
    (Yahoo! ID required)

<*> To change settings via email:
    mailto:perl-beginner-digest@yahoogroups.com 
    mailto:perl-beginner-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
    perl-beginner-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.c
om/info/terms/