#!/usr/bin/perl -w

use strict;

my @oldList = (1 .. 100);
my @newList = sort {rand > .5} @oldList;

print "Numbers:\n", (join "\n", @newList), "\n";