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