something about hash

[lina]

sub display_hash
{
        my (%hash) = @_;
        foreach (%hash)
        {
                print "$_ => $hash{$_}\n";
        }
}

display_hash('name' => 'Mar', 'distance' => 'forget');

distance => forget
Use of uninitialized value in concatenation (.) or string at
./subroutines_examples.pl line 38.
forget =>
name => Mar
Use of uninitialized value in concatenation (.) or string at
./subroutines_examples.pl line 38.
Mar =>

Thanks ahead for any suggestion,

Best regards,

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/