foreach (@mass_info) {
   print $_->{PID}, "\n";
}