【perl】STDINと条件分岐

#! usr/bin/perl

use strict;
use warnings;

print "以下飲み物を選んで、その番号を入力してください。\n";

print "1 = コーヒー(苦いよ)\n";
print "2 = オレンジジュース(冷たいよ)\n";
print "3 = ウーロン茶(コンビニのだよ)\n";

#ユーザーが入力した1行の文字列を変数$xに代入
my $x = <STDIN>; #STDINは、ユーザーからのキーボードを表す標準入力


if($x == 1){
	print"コーヒー\n";	
}elsif ($x == 2)
{
	print "オレンジジュース\n";
}elsif ($x == 3){
	print "ウーロン茶\n";
}else{
	print "ありません\n";
}