If you are going to store one list as a hash why not use it as a lookup table like so:

%prolist = (
'1' => 'CMD',
'2' => '/bin/sh',
'3' => 'rds',
'4' => 'SysExec',
'5' => '/oasis/bin/sysmenu',
'6' => '/oasis/bin/TS_TextSrvcs',
);

my @list = 1 .. 7;

my $missing = 0;
for my $item (@list) {
    unless (exists $prolist{$item}) {
        print "Missing item $item!\n";
        $missing = $item;
      last;
    }
}

print $missing ? "$missing was missing!" : "All present and accounted 
+for";
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print