use strict;
$a++;
print $a;