my $max;
grep($max=($_>$max)?$_:$max,keys %files);

print $max;