Help for this page

Select Code to Download

Select or download this

 $myhash{'555236801'} = [3035, 2];
or
 $myhash{'555236801'} = { empno => 3035, years => 2 };

Select or download this

  open SORTEDOUT, "|sort +2" or die "cannot open sort: $!\n";
  for (keys %myhash) {
    print SORTEDOUT $_, " ", $myhash{$_}{empno}, " ", $myhash{$_}{year
+s}, "\n";
  }
  close (SORTEDOUT) or die "Error on sort: $!\n";