codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
use strict; use warnings; use Data::Dumper; my %sironekotoro = ( name => 'sironekotoro', favolite_foods => ['beef' , 'pork'], ); my %softy = ( name => 'softy', favolite_foods => ['karikari' , 'kankan', 'beef'], ); my @human = (\%sironekotoro , \%softy); # print Dumper @human; for my $human(@human){ print "name : $human->{name}\n"; for my $foods(@{$human->{favolite_foods}}){ print "I LOVE $foods \n"; } print "---\n"; }
Private
[
?
]
Run code
Submit