Help for this page
use warnings; use strict; ... __END__ { cat => [1, "cat", 3, 4], dog => [5, 6], pig => [4, 3, 2, 1] }
my @cat=(1,2,3); my @dog=(5,6); ... $animals{'cat'}=\@cat; $animals{'dog'}=\@dog; $animals{'pig'}=\@pig;
www.com | www.net | www.org
No recent polls found
