This is a numbers List

10 23432
20 23424
60 45567
20 56756
30 91857
50 29349
10 93729
80 82374
20 82757
30 92785
50 71674
70 81747
20 83758
30 89275
10 19594
60 09214
20 09347
50 83725
90 91845
20 76402
30 90184

The numbers should appear as random

##</code><code>##

20
30
50

##</code><code>##

20 23424
20 56756
20 82757
20 83758
20 09347
20 76402
30 91857
30 92785
30 89275
30 90184
50 29349
50 71674
50 83725

##</code><code>##

#!/usr/bin/perl -w

use strict;

my $FALSE			= 0;
my $TRUE			= 1;
my $Flag			= $TRUE;
my $NumbersList			= "<" . "NumbersList";
my $LookingForTheseNumbersList	= "<" . "LookingForTheseNumbersList";

open NUMBERSLIST, "NumbersList" or die $!;
open LOOKINGFORTHESENUMBERSLIST, "LookingForTheseNumbersList" or die $!;

if ($Flag == $TRUE) {
	foreach my $Line (<NUMBERSLIST>) {
		#print "Numbers list number = : $Line";
		&FlagEqualsTrue($Line);
	}
}

sub FlagEqualsTrue {
	(my $LookingForNumber)	= @_;
	foreach my $Line (<LOOKINGFORTHESENUMBERSLIST>) {
		chomp $Line;
		next if ($Line =~ m/^These/);
		next if ($Line =~ m/^This/);
		next if !($Line =~ m/^$LookingForNumber/);
		print "$Line\n";
	}
}
exit;