sub quite_functional_FY {
    my $i = int rand @_;
    return @_ ? ($_[$i], quite_functional_FY(@_[0 .. $i-1, $i+1 .. $#_])) : ();
}

##</code><code>##

sub quite_functional_FY {
    my $i = int rand @_;
    return @_ > 1 ? ($_[$i], quite_functional_FY(@_[0 .. $i-1, $i+1 .. $#_])) : @_;
}