AdeA_Perl

#/usr/bin/env perl

use strict;

my @sistemas = qw(Mac Windows);
my @windows = qw(XP Vista Seven);
my @Mac = qw(Leopard Lion Tiger);

my @OS = (\@sistemas,\@windows,\@Mac);

my $i = 0; my $n = 0;

while ($i < $#OS+1 ) {

foreach $n (0.. @{$OS[$i]}-1) {
print "Mi sistemas son $OS[$i][$n]\n";
}

$i+=1;

}