@data = qw(foo bar baz qux);
{
   print "search: ";
   chomp ($in = <STDIN>);
   last unless $in;
   print $_,$/ for grep /\Q$in\E/o, @data;
   redo;
}