Help for this page

Select Code to Download


  1. or download this
    my @data = (
   [ 'Mrs', 'Linda', 'Carolo', '201', '148', 'she@borg.org' ],
   [ 'Mrs', 'Jean', 'Andronlo', '317', '167', 'j@alo.com' ],
   # etc
);
  2. or download this
    my %index = (
   title => 1,
...
   phone => 5,
   email => 6,
);
  3. or download this
    foreach my $row (@data) {
   print "$row->[$column{title}] $row->[$column{first}] $row->[$column
+{last}]\n";
}