Select Code to Download

#!/usr/bin/perl

...
    my $v = $flat{$k};
    say "$v \t<= \t", join ",  ", split ( $; , $k );
}

-69     <=     key0.1,  2,  key1.6
-33     <=     key0.2,  1,  key1.12
...
13     <=     key0.1,  1,  key1.5
17.8     <=     key0.1,  0,  key1.2
127     <=     key0.1,  2,  key1.7