What's the application? print will slow your loop down lot, but even without the I/O it may well be that Perl is not suitable for fast enough response for interactive tasks.