use List::Util qw( min );

for my $v ( @arr[ ( 0 .. min(9,$#arr) ) ] ) {
    print $v;
}

# oder lesbarer

for my $i ( 0 .. min($#arr,9) ) {
    my $v=$arr[$i];
    print $v;
}