use warnings;
use strict;
use Data::Dump;

sub antichomp (@) {
	for (@_) {
		$_ .= $/;
	}
}

my %hash = (x=>'Hello',y=>'World!');
antichomp(%hash);
dd \%hash;

%hash = ("x\n"=>"Hello\n","y\n"=>"World!\n");
chomp(%hash);
dd \%hash;

__END__

{ x => "Hello\n", y => "World!\n" }
{ "x\n" => "Hello", "y\n" => "World!" }

##</code><code>##

(@foo,@bar,&SomeSub,%glarch)

##</code><code>##

use warnings;
use strict;
use Data::Dump;

sub foo (@) { dd \@_ }

my %hash = (x=>'Hello',y=>'World!');
foo(%hash);

__END__

["y", "World!", "x", "Hello"]