use strict;my @list = ('116','111','109','109','111','110','116','101');&show;
@list[0] = @list[7];@list[1] = '114';@list[2] = '103';@list[3] = @list[4];@list[4] = '119';
@list[5] = @list[3];@list[6] = '108';@list[7] = '102';&show;sub show {foreach (@list) {
print chr($_);}print "\n";}

# this prints out my name and my alterego