Modify from file input to array(Perl) close #23