foreach my $process (@info) {
    while (my ($k, $v) = each %$process) {
        print "$k => $v\n";
    }
    print "\n";
}