Re: auto-initializing values

[John Porter]

Dave Storrs wrote:
> 
>       { 
>       # handle pensioners here
        my ($num_pensioners, $base_pension, $years_service) = (0,0,0); 
>       }
> 
>       {
        my $init_vars = 'ERROR::NAME_NOT_FOUND';
        my ($name_1, $spouse_name_1) = ($init_vars)x2; 
>       }
> 
>       {
        my @init_vars = (1,7,9);
        my (@blarg) = @init_vars;
>       }
> 
>       {
        my $rh_data_record = {};
>       }

Four (slightly) different scenarios, all easily handled with existing
perl syntax.  Choose the one which fits best.

-- 
John Porter