@data = (
  'buy 1/23/01 100 12.625 50 25.25',
  'buy 09/1/01 100 12.625 50 25.25',
  'buy 10/23/01 100 12.625 50 25.25',
  'buy 10/25/01 100 12.625 50 25.25',
);

##</code><code>##

sub get_date {
  my $string = shift;
  my $date = (split ' ', $string)[1];  # second field
  return $date;

##</code><code>##

for $line (@data) {
  push @dates, get_date($line);
}

##</code><code>##

for $line (@data) {
  push @dates, [ get_date($line), $line ];
}

##</code><code>##

sub get_date {
  my $string = shift;
  my $date = (split ' ', $string)[1];
  my ($d, $m, $y) = split '/', $date;
  return sprintf "%02d%02d%02d", $y, $m, $d;
}

##</code><code>##

@dates = sort { $a->[0] <=> $b->[0] } @dates;

##</code><code>##

@data = map $_->[1], @dates;

##</code><code>##

@data =
  restore(
    sort { $a->[0] <=> $b->[0] }
      extract(@data)
  );

##</code><code>##

# extract(@data)
# becomes
map [ get_date($_), $_ ], @data

##</code><code>##

# restore(...)
# becomes
map $_->[1], ...

##</code><code>##

@data =
  map $_->[1],
  sort { $a->[0] <=> $b->[0] }
  map [ get_date($_), $_ ],
  @data;

##</code><code>##

@data =
  map  { restore($_) }
  sort { ... }
  map  { extract($_) }
  @data;