Select Code to Download

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

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

my $line;
my $i=0;
...
open(FILECOUNTER,$fileCounter);
$count = <FILECOUNTER>;
chomp($count);

&readfile();

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

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

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

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

    my $counter=0;

    tell(TEMPFILE);

    while ($line = <CHARFILE>) {

    while ( my $line = <CHARFILE> ) {

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

                foreach ( $line ) {

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

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

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