Array Perl

  1. Home
  2. Perl
  3. Array
  4. Lists of Lists
#!/bin/perl
my $arrays = [ '1', '2', '3', [ 'red', 'blue', 'green' ]];
for($i=0;$i<3;$i++){
    print $arrays->[$i],"\n";
}
for($i=0;$i<3;$i++){
    print $arrays->[3]->[$i],"\n";
}
print "@{$arrays}\n";
print "--@{$arrays->[3]}--", "\n";