($choice <= scalar(@user_files))

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

##</code><code>##

  0     1     2
blank file1 file2