Help for this page

Select Code to Download


  1. or download this
    $ perl x.pl
THIRD: 0188 - 0000007777 - 40
THIRD: 0188 - 0000009980 - 41
THIRD: 0123 - 0000008888 - 50
THIRD: 0123 - 0000009999 - 51
  2. or download this
    use strict;
use warnings;
...

print Dumper \%h;
  3. or download this
    $VAR1 = {
          '1' => {
...
                          ]
                 }
        };