Select Code to Download

use strict ;
use warnings ;
...
my @arr=(%hash) ;
local $"="|" ;
print "@arr" ;

a|b|c|d

(%hash,'e'=>'f')

('a'=>'b','c'=>'d','e'=>'f')

(%hash1,%hash2)