my @wantedInfoTypes = qw{
   Name
   WorkingSetSize
   UserModeTime
   KernelModeTime};

...

for my $infoType ( @wantedInfoTypes )
{
    print
       qq{\n$infoType => \n},
       q{-} x length $infoType,
       qq{\n$info->{$infoType}\n};
}
...