Select Code to Download

use File::Stream;
my $stream = File::Stream->new($filehandle);
$/ = qr/\s+/;
...
$nextnum= <$stream>;

#!/usr/bin/perl
use warnings;
...
print 'IA= [ ', join(' ',@ia),"]\n";
print 'JA= [ ', join(' ',@ja),"]\n";