Select Code to Download

#!/bin/perl
use warnings;
...
    printf "              %4d                     %4d\n", 
        $sizes[$i], $scores[$i];
}

C:\Code>perl table.pl
======================================================================
+==============
...
             99
NameD                       75                          328
           1000