#!/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' ];