perl -i.bak -nlwe '$h{$_}++; if (eof) {print for sort { length($a) <=>
+ length($b) } keys %h}' junk.txt junk2.txt
[download]

You forgot to reset %h between files, so the second file will get all of the first file's lines. See my prototype answer.