shift @dates;
shift @dates;
shift @dates;
shift @dates;

##</code><code>##

splice @dates, 0, 4;

##</code><code>##

...
my @firstLine = <>;
my @dates = split m{\|}, $firstLine;
...
while ( my $line = <> )
{
...
}