my %commands;
$commands{$_} = "10 14 00 07 4d" for qw(GENERATE CREATE SPAWN ETC);
$commands{$_} = "16 75 32 14 77" for qw(DELIVER DELIV SHIP ETC2);

##</code><code>##

my %commands;
my $createCMD = {weight=>10, coordinates=>[42,-3.14], logic=>sub{ ... }, sound=>'success.mp3'};
$commands{$_} = $createCMD for qw(GENERATE CREATE SPAWN);