for (@list) {
    if ($_ > 0.1) {
        $seen = 1;
        last;
    }
}
print "@list" if $seen;


##</code><code>##

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