$x1 = ["a", "b", "c", "d",] print "print4" { msg => printf("length is: %d", len($x1)), } $x2 = {"a" => 1, "b" => 2, "c" => 3,} print "print3" { msg => printf("length is: %d", len($x2)), }