epoch=$(perl -MFile::stat -se 'print stat($list)->mtime' -- -list="$list")
# or, better:
epoch=$(perl -MFile::stat -wMstrict '-Mvars=$list' -se 'print stat($list)->mtime' -- -list="$list")