use strict;
use warnings;

##</code><code>##

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

##</code><code>##

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