for my ($dginput, $volinput) {
  $_ = lc <>;
  chomp;
}