Help for this page
if (ref($ref) eq 'HASH') { # ... some code ... ... } # ... some more code ... }
-- @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/; map{y/X_/\n /;print}map{pop@$_}@/for@/