Select Code to Download

use strict;
use warnings;
...
    printf "%.0f\t",$_ for @$r;
    print "\n";
 }

    A    B    C    
A    0    4    5    
B    4    0    4    
C    5    4    0