#!usr/bin/perl

my $file = $ARGV[0] or die "Please provide csv file \n";

open(my $data , '<', $file ) or die "Cannot open csv file $!\n";

while (my $line = <$data>){
	chomp $line;
my @col = split ",",  $line;
push (my @cluster, $col[2]);

  foreach my $field (@cluster){
	  my @cls = split ".", $field;
	  print @cls;
  }
}