Help for this page
#!/usr/local/bin/perl -w { ... 1;
Result: 30
my $Hash_result = Out_of_Scope( \%Hash);