my $currentlog = "/perl/ass/$logfiles[$hour]";