#!/usr/bin/perl -w #test_reference.pl use strict; my @LoL = ( ["00", "01"], ["10", "11", "12"], ["20"] ); use Data::Dumper; #for using Dumper() print Dumper(@LoL); exit;
D:\test>perl -w test_reference.pl
$VAR1 = [
'00',
'01'
];
$VAR2 = [
'10',
'11',
'12'
];
$VAR3 = [
'20'
];