Select Code to Download

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