my $n = 5;
print "-" x $n;