Select Code to Download

#!/usr/bin/perl
use warnings;
...
    $_ ||= 0 for @{$data{$key}};
    print "$key @{$data{$key}}\n";
}

a 1 5 1
b 2 0 0
c 3 0 0
d 0 3 0
x 0 0 4