#!/usr/bin/perl 
use strict;
use warnings;

print "Enter the number of times : "; 

my $times=<STDIN>; 

my @ascii;

foreach (1 .. $times ) { 
    push @ascii, scalar <STDIN>; 
}

foreach my $s ( @ascii ) {
    print chr($s); 
}