Select Code to Download

use strict;

...
        map {exists $hash{$key}{$_} ? $_ : ' ' x length $_} @columns;
    print ")\n";
}

Downtown_Market : (Even_more_fruit, More_fruit, Fruit)
East_market :     (Even_more_fruit,           ,      )
Uptown_market :   (               , More_fruit, Fruit)