【perl】条件分岐のいろんな書き方

#! 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文とunless文は、すべて同じ結果が得られる。
#1,2,3以外を入力したとき、exitされる。
=head
if ($x != 1 and $x != 2 and $x != 3){
	print "1,2,3どれかを入力してください。\n";
	exit;
}
=cut

=head
if (not ($x == 1 and $x == 2 and $x == 3)){
	print "1,2,3どれかを入力してください。\n";
	exit;
}
=cut

unless ($x == 1 and $x == 2 and $x == 3){
	print "1,2,3どれかを入力してください。\n";
	exit;
}