$ perl -e 'use strict; for my ($d,$v){ $_=lc<>; chomp; }
   print "got $d and $v\n"'
Missing $ on loop variable at -e line 1.