my $a = 1;
$a++ and print $a;