chomp ( my $dginput  = lc(<>) ) ;
chomp ( my $volinput = lc(<>) ) ;

## chomp ( my ( $dginput ,$volinput ) = lc(<>) ) ;
## the above chomp with the 2 vars does not work