How this works?

[Tushar Kulkarni]

Hi,
    I have this code, but I am not getting how this works. Can someone
help?

%h = ( one => 15,
        two => 26,
        three => 37 );

my @a;

foreach (@a {keys %h})
{
        $_ = $_ + 10;
}

print "New\n";

foreach (@a{keys %h})
{
        print "$_\n";
}

This prints

New
10
10
10

Can someone explain what is happening here?

Thanks
Tushar


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]