#!C:\Perl\bin\perl
use strict;
use warnings;

open INPUT "input.csv"||die "Can not open: $!\n";
open OUTPUT "output.csv"||die "Can not open: $!\n";

while(<INPUT>){
  my @line = split /,/;
  my @line2 = @line[0..2];
  my @dist = @line[3..$#line];
  my $ref = \@dist;
  push @line2,$ref;

  ## Print to OUTPUT
}

close INPUT;
close OUTPUT;