- or download this
my @arr=['rose','orange','green'];
$hash{"first"}=[@arr];
- or download this
my @arr = qw(rose orange green);
$hash{"first"}=\@arr;
- or download this
push(@{$hash{first}}, qw(red blue));
- or download this
#!/usr/bin/perl
...
]
};
- or download this
$hash{first} = [];
push(@{$hash{first}}, \@arr);
...
@newarr = qw(red blue);
push(@{$hash{first}}, \@newarr);