my $stuff;
for(scalar something()) {
    # ...
    $stuff = $_;
}