my $sample='prad';

++$sample for(1..10);
print "$sample";