sub beautify { my %temp = map { $_ => 1 } @_; return sort { $a <=> $b } keys %temp; }