DB<158> ;{ my $b; for my $a (1..3){tst1 {1} ; $b=tst2 {2} if $a==1 } }
1:	141317840
2:	141317840
1:	141318608
1:	141318608