my @files = ();
my $flatest = $_->{filename} for $files[-1];

Modification of non-creatable array value attempted, subscript -1