@a = (1,2,3);
for my $v (@a) {
  print $v, "\n";
}
print 'Still exist $v? ';
print "No!\n" unless defined $v;