my $number;
$number = 40;
my $number;

if ($number > 39) {
  print "bigger than 39\n";
}
elsif ($number < 1) {
  print "smaller than 1\n";
}