($choice <= scalar(@user_files))

# should be
($choice < scalar(@user_files))