use strict;
use warnings;
use Scalar::Util qw{ looks_like_number };
use v5.12;

my @array = ( '1', '2', '45', '65', 'what is this' );

my @by2 = @{ multiply( \@array, 2 ) };

say join ', ', @by2;


sub multiply {
    my( $aref, $multiplier ) = @_;
    return [
        map { $aref->[$_] * $multiplier }
            grep { looks_like_number( $aref->[$_] ) } 
                0 .. $#{$aref}
    ];
}