You could do:

my $flg = (@ARGV && @ARGV[0] =~ /-u/)? -1 : 1;
vec($x, $_ - 1, 8) += $flg * $_ for 1..length($x);
[download]

Also, as long as you're doing this for education, take a look at Getopt::Std, and that ARGV logic can be simplified further...