perl(split/\n/,(keys(${{}))[0]) #### perl(split/\n/,(keys(%{${{}}))[0])