超初心者でふが良いですか？

標準のキーボードから入力を受け取ってどうやれば入力を反映させれるかわからないです･･･

#!/usr/local/bin/perl -w
require 'jcode.pl';
print"あなたはどれを使いますか？<br/>\n１：ドラゴン<br/>\n２：ゴーレム<br/>\n３：こねこ<br/>\n";
while(<>){
if($_=m/3/){print"これはこねこ"};
};

↑これでは３を入力するたびに、これはこねこって出てくるんですが、

#!/usr/local/bin/perl -w
require 'jcode.pl';
print"あなたはどれを使いますか？<br/>\n１：ドラゴン<br/>\n２：ゴーレム<br/>\n３：こねこ<br/>\n";
while(<>){
if($_=m/3/){print"これはこねこ";$kyara=3}
elsif($_=m/2/){print"これはゴーレム";$kyara=2};
};

これのelsif文が実行されないぽいんですがなんででふか？

頭硬くてすみません･･･