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;
  #}
}

##</code><code>##

#!/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;
# }

}