#!/usr/bin/perl

use strict;
use warnings;
use Text::Capitalize;

my $filename = '/root/Desktop/name_list';

open my $fh, '<', $filename;

my @fileinput = <$fh>;
foreach my $line(@fileinput) {
    print capitalize("AU: $line", "\n",
          PRESERVE_WHITESPACE => 1,
          PRESERVE_ALLCAPS => 1);
}
close $fh;