for my $key (@params) {
    print "$key = ";
    my $value = <>;
    chomp $value;
    $settings{$key} = length $value ? $value : undef;
}