my( $var1, $var2 ) = (
    subroutine0_with_return_value(),
    subroutine1_with_return_value()
);

##</code><code>##

my $var1 = sub_w_ret_val1();
my $var2 = sub_w_ret_val2();

##</code><code>##

public static void main(){
    int var1, var2;
    //declare more variables here
    var1 = sub_w_ret_val();
    var2 = sub_w_ret_val();
}

##</code><code>##

my $file1, $file2
my $var1, $var2

$var1 = &sub_w_ret_val();
$var2 = &sub_w_ret_val();