Select Code to Download

use strict;
use warnings;

while ( <fh> ) {
 ($a,$b)=split/,/;
    push @AoA, [ split ];
 }

[
  "0.9883817,1",
...
  "0.73553418,1",
  "0.724572657,1",
]

#! perl
use strict;
...
__DATA__
0.9883817,1   0.770431568,1 0.983195895,1 0.812109932,1
0.901505931,1 0.72431528,1  0.73553418,1  0.724572657,1

17:41 >perl 1327_SoPW.pl
(
...
 at 1327_SoPW.pl line 45.

17:45 >