Select Code to Download

#!/usr/bin/perl -w

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

print join , => @to_print;

print join or => @to_print;