#!/usr/bin/perl
# Any society that would give up a little liberty
# to gain a little security will deserve neither
# and lose both.
#         -- Benjamin Franklin

@{$deserve{liberty}}=(0..100000);
@{$deserve{security}}=(0..100000);
if (@security = map{shift @liberty}(0..5)) {
        delete $deserve{liberty} and delete $deserve{security};
}