my @array = ('a'..'z');
my %states = (id_0 => { map {$_ => ['id_1']} @array });
print("The first transition for (state,input) pair (id_0,x) is\n");
print($states{id_0}->{x}->[0]);
[download]