my $var;
for (..) {
   $var = $_;
}
print $var;