Help for this page
#!/usr/bin/perl ... } untie %a;
#!/usr/bin/perl ... print "File untied\n"; undef %localhash; }