while (my $line =<$fh>)
{
    chomp $line;
    next if $. < 2;
    my($key, $parameter_value) = split("=", $line);