DB<27> print join " ", grep /^${user}/, @array;
foo foobar foobaz
  DB<28> print join " ", grep !/^${user}/, @array;
bar barfoo fobar