$ perl -e'
   use strict;
   use warnings;
   use feature qw( say );

   my @a = qw( a b c d );
   say for @a, @a=();
   say "--";
   say for @a;
'
Use of freed value in iteration at -e line 7.