#!/usr/bin/perl -wl

    use strict;

    my @ints = (34, 0, 6, 9999, 1);

    print "@ints";

    @ints = map {pack   "n", $_ } @ints; # Pack the data
    @ints = sort @ints;                  # Sort lexically
    @ints = map {unpack "n", $_ } @ints; # Unpack it

    print "@ints";