use List::Util qw/min/;
# ...
splice @columns, min 10, scalar @columns