my @records =
    sort {
        $a->[0] <=> $b->[0]
            ||
        $a->[1] cmp $b->[1]
            ||
        $a->[2] cmp $b->[2]
            ||
        $a->[3] <=> $b->[3]
    } map {
        [ split '#', $_ ]
    } map {
        chomp;
        $_
    } @DB;