Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

use strict;
...
    }
}
print Dumper (\%h1);
  2. or download this
    #!/usr/bin/perl -w

use strict;
...
    push @{$h1{$x}}, $h2{$x};
}
print Dumper (\%h1);