in reply to string increment

You may find the following instructive

my $sample='prad'; ++$sample for(1..10); print "$sample";

Perl is Huffman encoded by design.