sub seven_in_scalar_context { 
    my @r = 3..9;
    return @r;
}

sub nine_in_scalar_context { 
    my @r = 3..9;
    return wantarray ? @r : $r[-1];
}