-0.821,-0.247,0.001,-0.77
-1.045,-0.289,0.035,-0.962
-1.345,-0.345,0.048,-1.188
-1.674,-0.421,0.041,-1.428

##</code><code>##

#!/usr/bin/perl 

use PDL;
use PDL::Matrix;

$file = $ARGV[0];

open(DATA, "$file") || die "Error: Unable to open $file:$!\n";

my $d = [[],[], [], []];

while ( <DATA> )
{
  chomp;

  my @1 = split(/,/);

  push @{$d->[0]}, $l[0];
  push @{$d->[1]}, $l[1];
  push @{$d->[2]}, $l[2];
  push @{$d->[3]}, $l[3];
}

$d = PDL::Matrix->pdl($d);


##</code><code>##


Can't use global @1 in "my" at ./DSSP2CD_new.pl line (value here), near "my @1 "