Select Code to Download

#!/usr/bin/perl -w
use strict;
...
507316 - disp+work.exe 7852 0
104272 - disp+work.exe 10208 0
119728 - SavService.exe 2336 0

#%memhash=@allprocesses; #won't work
my %memhash = map{chomp; (split(' ',$_,3))[0,2]}@array; 
...
          '104272' => 'disp+work.exe 10208 0',
          '433064' => 'disp+work.exe 8712 0'
        };