#!/usr/bin/perl 

use strict;
use warnings;

print "Enter the number of times : "; 

my $times= <STDIN>; 

my $prompt = q{Add values : };
my $maskPrompt = "\r" . ' ' x  (length($prompt) + 2) . "\r";
my (@input) = ();
print $prompt;

chomp @input;
print do {
     local $" =  "\n  -->";
     "  -->@input"
}, "\n";
   
my $ascii;
foreach $times(1 .. $times) { 
    $ascii .= chr (<STDIN>);
}
print $ascii, "\n";

##</code><code>##


#!/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";