$cmd = [  qw(p4 tag -l), "TEST_$options{r}_$dat", $options{v}  ];