Meine dumme Frage zum Jahresende: Anzahl der Kalenderwochen im Kalenderjahr.

[pl]

($fst, $fst+1, $fst+2, $fst+3, $fst+4, $fst+5, $fst+6);

Da hat $fst+4 gefehlt

Ich habe mal vor fernen Tagen gehört, dass man auch deshalb sowas in for-Schleifen verbaut...

map wäre hier zweckmäßiger:

@days = map{ $fst + $_ }( 0..6 );

und noch ein Tipp lieber Kollege, mach Übergaben in Funktionen namentlich, am besten so:

sub foo{
  my $self = shift;
  my $day  = shift;
  my $year = shift || $self->{year};
}

# oder als hash
sub foo{
  my $self = shift;
  my %date = (
    year  => 1984,
    day   => 1,
    month => ''
  @_);
}

so bleibt die Übersicht und Du kannst ggf. auch Default Werte setzen, s.o. MfG