0 48.23 17.90
48.23 0 49.58
17.90 49.58 0
59.62 52.04 65.80
62.20 56.02 68.82
35.37 37.87 36.52
27.33 50.73 31.85

##</code><code>##

#!/usr/bin/perl

use strict;
my @line;

# shall we get the file then?

my $inputfile = $ARGV[0];

# guess we need to open it too

open(INPUT, "$inputfile") 
    || die "Error: Can't open $inputfile for reading: $!\n";

# lets place contents of file into array

my @filecontents = <INPUT>;

# we now want a for loop to access the array

for(my $i = 0; $i < @filecontents; $i++)
{

    # place each line in file
    # into another array
    
    @line = split(/\,/, $filecontents[$i]);
    
}