(my $month, my $day, my $time, my $host, my $service, undef) = split;

##</code><code>##

my ( $month, $day, $time, $host, $service ) = split;