in reply to Tk::Photo XPM images being copied

I'm on a cellphone so can't test myself, but I'd guess it's because you used the same name for both the images. Try using different ones or let Tk create the names for you.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]