っていうか調べたいだけなら
(grep{$input eq $_}(@data))? print 'match': print 'unmatch';
で良い気がｓ

>295
煽りなのかネタなのか、単に勘違いしてるのか良く判らんが、
「正確なコーディングに集中す」るのに my や use strict はこれ以上なく有効だぞ。
そもそも、何故相手を厨と罵ってまでこれらを使いたくないかの方が意味不明(´ω｀)