Select Code to Download

.0000000001;2;1;.5;.2
.5;2;1;.5;.5
0.3;1.5;.5;.5;.2
1;1;.7;1;1
.4;1;.4;1;.5

#!/usr/bin/perl

...

@sortedlines = sort { $b =~ /(^\d*\.*\d+);/ <=> $a =~ /(^\d*\.*\d+);/ 
+} @lines;
print "SORTED LINES = @sortedlines\n";