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

##</code><code>##

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

##</code><code>##

my $line;
my $i=0;
my @array;
my $count=0;
my $alphaFile = 'alphabetFile.txt';
my $numberFile = 'numberFile.txt';
my $fileCounter = 'counter.txt';
my $tempFile = 'temp.txt';

open(FILECOUNTER,$fileCounter);
$count = <FILECOUNTER>;
chomp($count);

##</code><code>##

&readfile();

##</code><code>##

	tie @array, 'Tie::File', $numberFile || die("failed to open $numberFile");;

##</code><code>##

	tie my @array, 'Tie::File', $numberFile or die "failed to open $numberFile";

##</code><code>##

	if (-e $tempFile) {
		open(TEMPFILE,"+<$tempFile") || die("failed to open $tempFile");

##</code><code>##

	if ( open TEMPFILE, '+<', $tempFile ) {

##</code><code>##

	my $counter=0;

##</code><code>##

	tell(TEMPFILE);

##</code><code>##

	while ($line = <CHARFILE>) {

##</code><code>##

	while ( my $line = <CHARFILE> ) {

##</code><code>##

			if ("$line $array[$i]") {

##</code><code>##

				foreach ( $line ) {

##</code><code>##

						print shuffle $array[$i] . "\n";

##</code><code>##

						print "\n" . $line . " " . rand "$array[$i]" . "\n";

##</code><code>##

						print "\n", $line, " ", rand $array[ $i ], "\n";