Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use strict;
    ...
                909
              ]
            ];
    
  2. or download this
    #!/usr/bin/perl
    use strict;
    ...
                909
              ]
            ];
    
  3. or download this
    use feature 'say';
    foreach my $row (@column) {
        for (@$row) { say $_ if (defined) }
    }