DB<8> print join " ", grep !/^[$user]/, @array;
bar barfoo
  DB<9> print join " ", grep /^[$user]/, @array;
foo foobar fobar foobaz