c:\@Work\Perl\monks\james28909>perl -wMstrict -e
"my $file = 'file';
 my $temp = 'temp';
 ;;
 foreach (1..5){
   open $file, '>', qq{$temp$_};
   print $file 'THIS IS DATA';
   }
"
Can't use string ("file") as a symbol ref while "strict refs" in use at -e line 1.