use strict; # wie immer
use warnings; # wie immer

for my $file (@Files)
{
my $TimeStampFromFile	= substr($file,0,8);
my $YearFromFile	= substr($file,0,4);
my $MonthFromFile	= substr($file,3,2);
my $DayFromFile		= substr($file,5,2);
}