foreach $times(1 .. $times) { 
    $ascii .= chr (<STDIN>);
}