8 lines
194 B
Perl
8 lines
194 B
Perl
|
use Data::Dumper;
|
||
|
|
|
||
|
|
$scalar = 0;
|
||
|
|
$hashref = {};
|
||
|
|
$arrayref = [$scalar, $hashref];
|
||
|
|
$hashref->{arrayref} = $arrayref;
|
||
|
|
|
||
|
|
print Data::Dumper->Dump([$arrayref, $hashref], [qw(arrayref hashref)]);
|