else { last if !defined (($_ = <>) =~ s!\n|$/!!g); }

##</code><code>##

@{$temp_hash{files}} = grep { /@(\d+)$/; $1 > $old } @{$temp_hash{files}};

##</code><code>##

/@(\d+)\z/ && $1 > $old