use List::Util qw/first/;
print "@list" if first { $_ > 0.1 } @list;