use v6;

# create 3 hashes, showing mixed inits that can be used in perl6  :
my %hsh0 = ( "Name" => "George H. W. Bush", "Function" => <president of USA> , 'Time' => <2001-2009>);
my %hsh1 = ( "Name" => "Bill Clinton", "Function" => <president of USA> , 'Time' => <1993-2001>) ;
my %hsh2 = ( "Name" , "Barack Obama",  "Function"  , <President of USA> , 'Time' , <2009-2017> ) ;


# Subscript Adverbs : :exists :k :v :p :delete
#if ( %hsh1<Name>:exists)  { #  Use this when keys have No Spaces !!
my $key = 'Name' ;
if ( %hsh1{$key}:k)  { # Can I use %hsh1{Name}:exists : Yes works!

	say "Found Name element in %hsh1";

}

# there is an other use for <> construct :  , but {} also works!!
say %hsh1{}:v.perl;   #Show all values
say %hsh1.pairs.perl;

# push the several hashes onto the array : @arr
my @arr ;
# Please notice the : after the push
@arr.push: { %hsh0 } ;
@arr.push: { %hsh1 } ;
@arr.push: { %hsh2 } ;

# show some entries. using serveral formats that perl6 has :
say '@arr.[0].{"Name"} = ' ~ @arr.[0].{'Name'};
say  '@arr.[1].<Name> = ' ~ @arr.[1].<Name> ;

say @arr.end.fmt('%+4d') ;  # How many items ( hashes )  are in the array.
# dump @arr
dd @arr;

# try looping over the @arr , and detect the keys stored in the hash. It's more simple than I thought ( after some experimenting )
for 0 .. @arr.end -> $idx {
	say "@arr idx : $idx";
	my %x = @arr[$idx];
	for %x.kv -> $key, $value {
		printf "%10.10s : %-20.20s\n" , $key, $value; # please notice printf NOT using () ;
	}
}