#!/usr/bin/env perl

use strict;
use warnings;

my @akj = (0.11, 0.05, 0.02);

print join ",", @akj if grep {$_>0.1} @akj;