my $b = '7';
print "p{$b}.zip\np${b}.zip\np$b.zip";

##</code><code>##

p{7}.zip
p7.zip
p7.zip