if ($cmd =~ /^autotie((?:ref)?)$/) {
            my $tiedata = '($was_arrayref ? $data : @$data)';
               $tiedata = ($1 ? '$ref, ' : '') . $tiedata;
            my $mapping = shift;