diff --git a/lpst.pl b/lpst.pl
index b85bfe3..c0b257a 100644
--- a/lpst.pl
+++ b/lpst.pl
@@ -381,6 +381,8 @@ sub cell_index($){
     return ($AXIS{$chr1}, $chr2);
 }
 
+# Creates a hash of the the form
+# $board{cell_notation} = piece_enum
 %board = map {
     $_ => $EMPTY_CELL
 } map {
@@ -391,10 +393,10 @@ sub cell_index($){
     $AXIS_RV{$_}
 }(1...11);
 
-$board{1}{1} = $P1.$DIV.$MG_A;
+$board{"C3"} = $P1.$DIV.$MG_A;
 
 
-printf("%s\n", $board{3}{3});
+printf("%s\n", $board{"C3"});
 # disp_board();
 
 # disp_0("C1");