use strict ; use warnings ; my %hash=('a'=>'b','c'=>'d') ; my @arr=(%hash) ; local $"="|" ; print "@arr" ; #### a|b|c|d #### (%hash,'e'=>'f') #### ('a'=>'b','c'=>'d','e'=>'f') #### (%hash1,%hash2)
## a|b|c|d ##
## (%hash,'e'=>'f') ##
## ('a'=>'b','c'=>'d','e'=>'f') ##
## (%hash1,%hash2)