use strict;
use warnings;

my %data = (
    A => [ 0, 1, 2, 3, 99,      5, 6 ],
    B => [ 0, 1, 2, 3, 9.9999,  5, 6 ],
    C => [ 0, 1, 2, 3, "",      5, 6 ],
    D => [ 0, 1, 2, 3, undef,   5, 6 ],
    E => [ 0, 1, 2, 3, 11,      5, 6 ],
    F => [ 0, 1, 2, 3, 123.0,   5, 6 ],
    G => [ 0, 1, 2, 3, '',      5, 6 ],
    H => [ 0, 1, 2, 3, undef,   5, 6 ],
    I => [ 0, 1, 2, 3, -11,     5, 6 ],
    J => [ 0, 1, 2, 3, -1.1,    5, 6 ],
);

my @rows = sort {
    (! defined $a->[4]) ? -1 :
    (! defined $b->[4]) ?  1 :
    (! length $a->[4])  ? -1 :
    (! length $b->[4])  ?  1 :
    ($a->[4] <=> $b->[4])
} values %data;