@values = qw(this is a test of the hello test of the test artist hello world);
@unqiue_values =   grep { !$seen{$_}++   } @values;
print join " " => @unqiue_values,"\n";
__END__
this is a test of the hello artist world