use Locale::Currency::Format;
use Data::Random qw(:all);
use strict;
use warnings;

my $readfile = 'TextFile.txt';

print "Search for a name: ";
my $userinput = <>;