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