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

##</code><code>##

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