Perl: Dead code removal and snappy-compression simplification