Select Code to Download

Select or download this

my %ofInterest = map { $_ => 1 } qw[
    perl.exe
    cmd.exe
    textpad.exe
];

Select or download this

my @fields = qw[ Name WorkingSetSize UserModeTime KernelModeTime ];

Select or download this

for my $info ( 
# This ^^^^^ var will be set to the hashref each of the ...
...
# ............................with the field names   ^^^^^^^
# ..to produce the wanted 4 values and supply them to printf
}

Select or download this

my @fields = qw[ Name WorkingSetSize UserModeTime KernelModeTime ];
...
printf ... @{ $info }{ @fields };

Select or download this

printf ... @{ $info }{'Name','WorkingSetSize','UserModeTime','KernelMo
+deTime'};

Select or download this

printf ... $info->{ Name }, $info->{ WorkingSetSize }, 
           $info->{ UserModeTime }, $info->{ KernelModeTime };