Help for this page
#!/usr/bin/perl ... } return wantarray?@_:$_[0]; }
$VAR1 = { 'WIFE' => { ... } } };