use Modern::Perl;

my %data;
while (<DATA>) {
        chomp; # newline entfernen
        my ($k, $v1, $v2) = split /;/;  # splitte Datensatz
        
        $data{$k} //= [ $v1, $v2//0 ];  # Datenarray setzen falls noch nicht existent
        
        $data{$k}->[0] = $v1 
                if $v1 < $data{$k}->[0];        # setze Minimum aus erstem Wert
        $data{$k}->[1] = $v2 
                if length $v2 
                && $v2 gt $data{$k}->[1];       # setze Maximum aus zweitem Wert
        
        $data{$k}->[0] = $v2 
                if length $v2 
                && $v2 lt $data{$k}->[0];       # setze Minimum aus zweitem Wert
        $data{$k}->[1] = $v1 
                if length $v1 
                && $v1 gt $data{$k}->[1];       # setze Maximum aus erstem Wert
}

# Daten wieder ausgeben
say 
        join ";",$_,@{$data{$_}} 
        for 
        sort                            
        keys %data;                     

__DATA__
201;215388;
201;48639860;48639869
201;48639870;48639879
201;48639880;48639889
201;48639890;48639899
201;5589000;
201;55890010;55890019
201;55890020;55890029
201;55890100;55890149
201;5589026;
201;5589027;
201;5589028;
201;5589029;
201;55891000;55891999
201;5589219;
201;5589400;
201;5589401;
203;7329283;
203;73297000;73297399
203;7329789;
203;7329900;
203;7329911;
203;7329922;
203;7329988;
2041;7549009;
2041;7549010;
2041;7549011;
2041;7549012;
2041;7549013;
2041;7549014;
2041;7549015;
2041;7549016;
2041;7549017;
2041;7549018;
2041;7549019;
2041;7549027;
2041;7549028;
2041;7549029;
2043;9829006;
2043;9829007;
2043;9829008;
2043;9829009;
2043;9829019;
2043;9829029;