my $a = 22;
my $b = 5;

my $c = ($a, $b++);

print $a,"\t",$b,"\t",$c,"\n";