#  same preamble
my %value_of;
while (<$param_fh>) {
    my ($name,$value) = split /:/;
    $value_of{$name} = $value;
}
#  etc