$i = 500;
$i = 900;
$i += 100;

for ( $i, $i, $i ) {
    ....
}

##</code><code>##

    my $theta = $T * (( 1013 / $_ ) ** ( 287/1004 ));
    push ( @press, $_ );
    push ( @thetas, $theta );