$arch .= sprintf "-%vd", substr($^V, 0, 2) if $] >= 5.008;

##</code><code>##

C:\Perl510>perl -wle"print $]; print $^V; printf qq[-%vd], substr($^V, 0, 2)"
5.010000
v5.10.0
-118.53