#!/usr/bin/perl -w

my %a=( foo => "bar",
        fi , "fo");

##</code><code>##

print join , => @to_print;

##</code><code>##

print join or => @to_print;