Select Code to Download

#!/bin/perl -w
use strict;
...

@array1 = sort {$array1[$a]->[3] <=> $array1[$b]->[3]} (@array1);