use warnings;
use strict;
use Data::Dump;

$_ = "foo";
for ("x","y") {
	dd $_;
}
dd $_;
while (<DATA>) {
	dd $_;
}
dd $_;

__DATA__
hello