Select Code to Download

Select or download this

my $mysortref = sort_maker(
    sub { lc($data{$a}[0]) cmp lc($data{$b}[0]) },
...
        }
    };
}

Select or download this

HERNANDEZ      HECTOR     456791 SAMSON 0217      2001-07-25 1963-08-0
+1
VASQUEZ        JOAQUIN    456789 SAMSON 0209      1990-11-14 1970-03-2
+5
JONES          TIMOTHY    803092 LAVER  0103      2001-03-19 1969-06-2
+9
SMITH          BETTY_SUE  698389 SAMSON 0211      1992-01-23 1949-08-1
+2

Select or download this

    lastname
    firstname
...
    dateadmission
    datebirth

Select or download this

  my %parameters = (
    lastname       => [ qw( U a ) ],
...
    dateadmission  => [ qw( D a ) ],
    datebirth      => [ qw( D a ) ],
  );

Select or download this

    my $results_ref = 
        $dp->sort_by_column( qw{ lastname firstname cno } );

Select or download this

    sub { lc($data{$a}[0]) cmp lc($data{$b}[0]) },