Select Code to Download

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

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