Select Code to Download

use List::MoreUtils qw( apply );
my @bla = apply { tr/h//d } @arr;

use Algorithm::Loops qw( Filter );
my @bla = Filter { tr/h//d } @arr;