更改标量的值

Question

我是Perl的新手。我试图编写一个以4个数字输入并确定最大和最小数字的propram。

这是我的计划

my $entry1;
my $entry2;
my $entry3;
my $entry4;
my $tempsmall;
my $templarge;

say "Enter first number. \n";
$entry1 = <>;
chomp $entry1;
say "Enter second number. \n";
$entry2 = <>;
if ($entry1 > $entry2)
    {$entry1 = $templarge;
     $entry2 = $tempsmall;
    }
else {
      $entry1 = $tempsmall;
      $entry2 = $templarge;
     }
print "Your first number: $entry1 \n";
print "Your second number: $entry2 \n";
print "Your third number: $entry3 \n";
print "Your fourth number: $entry4 \n";

print "Largest number: $templarge \n";
print "Smallest number: $tempsmall \n";

但是我收到此错误消息：    在连接（。）中使用未初始化的值$ templarge或在./a15compare.pl第41行中使用字符串，＆lt;＆gt;第4行。  最大数量： 在连接（。）中使用未初始化的值$ tempsmall或在./a15compare.pl中使用字符串。

此错误消息是什么意思？任何帮助将不胜感激。