#!/usr/bin/perl 

use strict;
use warnings;

print "Enter the number of times : "; 

my $times= <STDIN>; 

my $prompt = "Add values : ";
$prompt = "\r" . ' ' x  (length($prompt) +2) . "\r";
print $prompt;
   
my $ascii;
foreach (1 .. $times) { 
    $ascii .= chr (<STDIN>);
}
print $ascii, "\n";