print $agents[2]->{os}->[1], "\n";

# or more succinctly
print $agents[2]{os}[1], "\n";