for my $k (keys %GSPmsgHash) {
    print "$k =>\n";
    for my $v (values %{$GSPmsgHash{$k}} ) {
        print " $v\n";
    }
}