use strict;
use warnings;
my @array = (3, 5, 0, 0, 7, 7, 0, 8, 2, 0, 1, 8, 4);
my @sorted_array = sort {($a xor $b) ? ($a <=> $b) : 0 } @array;
print "@sorted_array\n";