Select Code to Download

  push(@alldata, {
                  name => $filename,
                  data => $data
    });

my @maxref = sort { $b->{data}->[$opt{data}] <=> $a->{data}->[$opt{dat
+a}] } @alldata;

my @maxtmp1 = sort { $b->{data}->[0] <=> $a->{data}->[0] } @alldata;
my @maxtmp2 = sort { $b->{data}->[1] <=> $a->{data}->[1] } @alldata;
@maxtemp = (@maxtmp1, @maxtmp2);
@maxref = sort { $b->{data} <=> $a->{data} @maxtemp;