$ perl -le '@B=qw(-0 4 5 6); $B[0] = substr($B[0],0,1) . 1;
print map $B[0]*$_ . " ",  @B[1..3];'
-4 -5 -6