while (my $line = <DATA>){
	my $i=0;
	chomp($line);
	my @array = split(',',$line);
	while($i<=$#array){
		print "$array[$i+2]\n";
		$i++;
	}
}