use strict; use warnings;
# or some other util function that can tell if it is a number...
use Scalar::Util qw(looks_like_number); 

my @array = ('1','2','45','65','what is this?');
my @mod = map {if (looks_like_number($_)){$_*2} else {$_}} @array;
print "$_\n" for @mod;