"4) sort the higest one "

Sort the highest one what?

Do you mean:

1. sort by bitsin?
2. sort by bitsout?
3. extract the highest bitsin value?
4. extract the highest bitsout value?
5. something else entirely?

You need to clarify.

By the way, the "sorting by date" that you've implemented does not work. If you enable warnings, you will see the following output:

Argument "12/6/2006 00:07:22" isn't numeric in numeric comparison (<=>
+) at foo.pl line 15, <DATA> line 4.
Argument "12/6/2006 00:02:23" isn't numeric in numeric comparison (<=>
+) at foo.pl line 15, <DATA> line 4.
Argument "12/6/2006 00:17:23" isn't numeric in numeric comparison (<=>
+) at foo.pl line 15, <DATA> line 4.
Argument "12/6/2006 00:12:22" isn't numeric in numeric comparison (<=>
+) at foo.pl line 15, <DATA> line 4.
[download]

You get that because you are tring to do a numeric sort on "stringified" data. To properly sort by date, you'll need to first convert the strings into something that sort can make sense of. For example, a unix timestamp. Something like Date::Manip or Date::Calc will be useful for that.

Cheers,
Darren