According to
stat,
pop( @file_info ) returns
actual number of blocks allocated. You are performing
localtime() on an incorrect type of argument. Instead, you may be looking for:
# last modify time in seconds since the epoch
my $timestamp = $file_info[9];