for ( 1 .. 10 ) {
    my ( $foo, $bar ) = ( some_sub(), some_sub() );
    # do stuff
}