#!/usr/bin/perl -w


use strict;
use warnings;

my %a;
my $a = scalar keys %{a};
print $a,"\n";
if (not exists $a{a}{a}{a}){
	$a = scalar keys %{a};
	print $a,"\n";

}

print "End\n";