perl -ne 'BEGIN{$\="\n";
@keys = qw /
Name 
AlarmConsistencyMgr 
AlarmForwarder 
AlarmForwarderServer 
alert_publisher 
AnalogGatewayMain 
AssetTracking 
CallerPosition
/}
@array=split /,/;END{@hash{@keys}=@array;print "$_ -> $hash{$_}" foreach(keys %hash)}' ace.dll