#!/usr/opt/perl5/bin/perl5.8.2_64bit
open FILE, "20100317131946.cmb11cd8.60054.jcl.cmp.sent" or die $!;
my $line;
#my @lines;
my $self  = {};
my $i;

while (<FILE>)
{
 $line = $_;
# @lines= split("~",$line);
 @{ $self->{lines} } = split("~",$line);
 print "Lines copied into the data structure successfully\n";

# foreach $i(@lines)
 #{
#       print $i;
# }

}