my @horiz = <STDIN>;

chomp( @horiz );

my @dates = split /\|/, shift @horiz;