foreach my $key (@params) {
    print "$key = ";
    my $value = <>;  # must at minimum be "\n"
    chomp $value;       # must at minimum be ""
    redo unless length  $value;  # rerun loop if value is empty string.
}