use List::MoreUtils qw{ any };
print "@array\n" if any { $_ > 0.1 } @array;