perl sql.pl
$VAR1 = [
          'horse1',
          'SYNDB'
        ];
$VAR1 = [
          undef,
          undef
        ];