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]);