my @sorted_lines =
    map {join '.', @$_}
    sort { $a->[0] <=> $b->[0]
           || $a->[1] <=> $b->[1]
           || $a->[2] cmp $b->[2]
           || $a->[3] cmp $b->[3]}
    map { [split '.'] } 
    @lines;