ytnobody · June 15, 2012 08:03 · ytnobody · Jun 15, 2012
diff --git a/foo.pl b/foo.pl
 use strict;

 my %hash = (
    hoge => [ 1, 2, 3, 4 ],
    fuga => [ 3, 4, 6, 8, 2 ],
    piyo => [ 4, 6, 9, 2 ],
 );

 print join ', ', map { join ': ', @{$hash{$_}} } keys %hash;
	use strict;

	my %hash = (
	hoge => [ 1, 2, 3, 4 ],
	fuga => [ 3, 4, 6, 8, 2 ],
	piyo => [ 4, 6, 9, 2 ],
	);

	print join ', ', map { join ': ', @{$hash{$_}} } keys %hash;