#my $a="test1";
my $b="test2";

if (length($a) > 0) {
 $b=$a.$b;
}