using 32bit perl

#!/usr/local/perl-5.6.1/bin/perl
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 "Line copied into the data structure successfully\n";
  #foreach $i(@lines)
  #{
  # print $i;
  #}
}