$ perl -le 'use strict; for( 1..2 ) { eval qq{my \$q$_ = $_}; }; print $q1'
Global symbol "$q1" requires explicit package name at -e line 1.