% ./t2.pl
In: $VAR1 = 'Test foo';
$VAR2 = 'Test bar';
Out: $VAR1 = 1;
$VAR2 = undef;
$VAR3 = [
          'Test foo Test bar'
        ];
$VAR4 = [
          'Test foo Test bar'
        ];
$VAR5 = [];
Redir: $VAR1 = undef;