earnhardt3rd

sub fromARRAY {
    print "  =============== FROM ARRAY ===============\n" if $DEBUG > 0;
    my @ARRAY = @_;
    if (scalar(@ARRAY) <= 0) {return;}
    my @RETURN;
    my $ans="";
    my $len = length(scalar(@ARRAY));
    if (uc($MODE) !~ /NO-PROMPT/) {
        for (my $i=0;$i<=scalar(@ARRAY)-1 ;$i++) {
            my $c = $i+1;