$x = <STDIN>;$Data = <STDIN>;$y = <STDIN>;
if ($Data eq "+") {
$k = $x + $y; } elsif ($Data eq "-") {
$x - $y; } elsif ($Data eq "*") {
$x * $y; } elsif ($Data eq "/") {
$x / $y; };
print $k;

if文でDataに入力された記号を見分けてそれに対応した計算をしたいんだけど　$kの中身がnullになるのはなぜ？