#!/usr/bin/perl

use strict;
use warnings;


sub testZZZx {
  my ($day, $month) = @ZZZ;
  
  return 'Steinbock'    if $month == 1 and $day < 21;
  return 'Wassermann'   if $month == 1 and $day >= 21 
                        or $month == 2 and $day < 22; #usw.
                        
  return 'FALSE';
}

print   testZZZx(11, 1), "\n", testZZZx(23, 1), "\n",
        testZZZx(11, 2), "\n", testZZZx(25, 2), "\n";