for(;;){
     print "3:\t$ARGV[0]\n"; #cannot print either
       last;
   }