DB<1> @array = qw /foo foobar bar barfoo fobar foobaz /;

  DB<2> x  @array;
0  'foo'
1  'foobar'
2  'bar'
3  'barfoo'
4  'fobar'
5  'foobaz'
  DB<3> $user = "foo";

  DB<4> @a = grep /^\Q$user\E/, @array;

  DB<5> print "@a";
foo foobar foobaz
  DB<7> print join " ", grep !/^\Q$user\E/, @array;
bar barfoo fobar