Select Code to Download

use strict;
use warnings;
...
my @ratio_list = (0,1..$max); 
my @minutes_list = map {$_ * 10} grep {$_ != 0} @ratio_list;
print "@minutes_list\n";

10 20 30 40 50