# filehandler.pl #1158919
use strict;
use warnings;
use 5.018;

sub read_file {
	 my (@names, @out);
     my @lines = <>;
     chomp(@lines);
	 for my $line(@lines) {
	     @names = split /,/, $line;
		 for my $name (@names) {
			push @out, $name;
	     }
     }
	 for my $item(@out) {
         print $item . "\n";
	 }
 }

 read_file;