print grep (/^\Q$test/,@large);