for ($xml->{job_info}{queue_info}{'Queue-List'}('@')) {
    print $_->{job_list}{slots};
}