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

Or use List::Util::first:

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