Почему мой цикл Perl обрывается на один в конце?

У меня есть эта программа, которая не работает должным образом. Помогите мне.

Я хочу напечатать заголовок строки.

Если ввод 4 , я хочу, чтобы выводилось 1 | 2 | 3 | 4 .

Это не работает как все, если я жестко запрограммировал значение $ count , оно работает частично, но последнее число отсутствует.

sub printC {
        my $count = @_;
        # count = 4  # works partially only prints 1|2|3
        for(my $i=1;$i<$count;$i++) {
                print "$i|";
        }
        print $i;
}
$count  = 2;
&printC($count);
print "\n";