use strict;
my $A="a";
my $Z = 0;
while($A ne "devnull")
{
   $A++;
   $Z++;
}
print"$A\n";
print"$Z\n";