The problem is that you are using the same array on each loop iteration. You either have to create an anonymous array with:

    push @sorted, [@home];
[download]

or make sure you use my to ensure you are using a new array in your current scope:

    my @home = <HOUSE>;
    chomp @home;
    push @sorted, \@home;
[download]

If you use a module like Data::Dump or Data::Dumper to print out your array, you'll find it easy to work out what's going on.

gav^