#!/usr/bin/perl use strict; use warnings; use Data::Dumper; for(1..10) { my $t = 'undef' if 0; print Dumper $t; $t = 'def'; } -- With best regards, Alexander Q mailto:qalex на ashmanov.com