$testqwe = '';
$one = 'test';
$two = 'qwe';

if (${"${one}$two"}) {print "videli takoe\n";} else {print "ne, ne videli\n";}