Select Code to Download

use strict;
# strict is good ++
...

printf "%-5s %-20s %-20s\n",$_+1,@{$x[$_]} for(0..2);
# poor formatting again --