Select Code to Download

#!/usr/bin/perl -w
@numberarray = qw(00000900011 10001000100 00022200101); 
...
        $digits = join('',@temparray);
        print "$digits\n";
}

#!/usr/bin/perl -wl
use strict;
...
    unshift (@array,"\x20" x $incr); 
    print @array;
}