@array = split (' ', $message);
        $arrayout = "";
        $element="";
        foreach $element (@array) {
                unless($arrayout =~ m/$element/){
                        $arrayout .= $element;
                        print "a: $element\n";
                }
        }
        $message = join('',@arrayout);