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