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