my % commands =
(
	CMD1 => process 1,
	CMD2 => process 2,
	CMD3 => process 3,
); 

foreach my $cmd(keys %commands)
{
	`$commands{$cmd}`;
	if($?)
	{
		print ¨ Error:  $commands{$cmd}\n¨;
	}
}