#!/usr/bin/perl
use strict;
use Tie::File;
use List::Util qw/shuffle/;