Select Code to Download

$i = 500;
$i = 900;
...
for ( $i, $i, $i ) {
    ....
}

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