sub mod_ulist {
        my @user_files = </usr/local/squid/etc/aclfiles/*.acl>;
                $file1 = "$user_files[0]";
                $file2 = "$user_files[1]";
                $file3 = "$user_files[2]";
                $file4 = "$user_files[3]";
                $file5 = "$user_files[4]";
                $file6 = "$user_files[5]";
        my $mail_flag = "1";

        $oldformat = $~ = "MOD_ULIST";
                open ($~);
                system 'clear';
                write;
                print "Please choose a file to modify: ";
                my $choice = <STDIN>;
                chomp ($choice);
                $ufile = '$file' . "$choice";
                        file_mod($ufile,$mail_flag);
}

##</code><code>##

Where ever there is confusion to be had... I'll be there.