foreach (<DATA>) {
  ($key, $val)=split ';', $_, 2;
  push @{$store{$key}}, $val;
}
while (keys %store) {
  foreach $key (sort keys %store) {
    print join ';', $key, shift @{$store{$key}};
    delete $store{$key} unless scalar @{$store{$key}};
  }
}

__DATA__
2;3425;
2;4534;
2;2155;
3;1324;
3;1253;
3;3455;
4;3454;
4;3464;
4;3454;