Language Basics Perl

$x = 100;
$y = 200;
$warning = "Do you smell smoke?";