Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use feature ':5.10';
...
   }
$Hash->{'HashOne'} = FillHashOne(undef());
print __LINE__ . ":Main:\$Hash:\n" . Dumper($Hash);

Select or download this

#!/usr/bin/perl
use strict;
...
   }
$Hash->{'HashOne'} = FillHashOne(undef());
print __LINE__ . ":Main:\$Hash:\n" . Dumper($Hash);