print map {( $_ =~ /^-?\d+$/ ? $_ * 2 : '-' ),"\n"} @array;

##</code><code>##

print map {( $_ =~ /^-?(\d*\.)?\d+$/ ? $_ * 2 : '-' ),"\n"} @array;