1 2 3 4 5 6 7 8 9 10 11
use strict; use warnings; use Data::Dumper; my %myinfo = ( name => 'sironekotoro', sex => "male", food => 'beef' ); print Dumper %myinfo;
1 2 3 4 5 6
$VAR1 = 'food'; $VAR2 = 'beef'; $VAR3 = 'name'; $VAR4 = 'sironekotoro'; $VAR5 = 'sex'; $VAR6 = 'male';