print map "$_\n", map /(.+)\./, sort RetrieveIllustrationList( $cl_userinput );

print "$_\n" for map /(.+)\./, sort RetrieveIllustrationList( $cl_userinput );