tie @lines, 'Tie::File', "testfile.dat" or die "Can't read file: $!\n";
$linecount = $#lines+1;
#print "Linecount=> $linecount\n";
foreach ( @lines )
{
       chomp;
        ($type, $No, $date) = split(/\|/);
        $hash{$No.$date} = $type."@".$No."@".$date;
}
untie @lines;