<: %starttime = ( 1 => "20 Uhr", 5 => "19 Uhr", ); print STDERR "This break is intentional!\n\n"; print STDERR "Send the list to redaktion@stachel.de\n\n"; foreach $termin (sort (@termine)) { @termin = split (/\|/, $termin); if ($termin[2] eq "Oldenburger Linux-Stammtisch") { @date = split (/-/, $termin[0]); $wday = (localtime(timelocal(0,0,0,$date[2],$date[1]-1, $date[0])))[6]; $termin[3] =~ s/ / /g; printf STDERR "%d.%d.: %s, %s, %s\n\n", $date[2], $date[1], $termin[2], $termin[3], $starttime{$wday}; } } :>