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