Help for this page

Select Code to Download


  1. or download this
    use strict;
use Data::Dumper; # for investigating data structures
...
Sequence3,0003,40
Sequence4,0004,100
Sequence5,0005,70
  2. or download this
    %data -
$VAR1 = {
...
Sequence5,0005,70
Sequence1,0001,80
Sequence4,0004,100
  3. or download this
    my %data;
$data{key} = value;
  4. or download this
    %data->{key} = value;
  5. or download this
    @sorted_array =
  map {$_->[0] }
  sort { $a->[1] <=> $b->[1] }
  map { [ $_, (split/,/)[2] ] } # retrieve the third key
  @original_array;