#!/usr/bin/perl

my @data;

push @data, [ split (/\|/,"2001-07-07|12345|This is a test 1") ];
push @data, [ split (/\|/,"2001-07-08|23456|This is a test 2") ];
push @data, [ split (/\|/,"2001-07-06|34567|This is a test 3") ];

print $data[0][0];