#!/usr/bin/perl                                                
print "what is the prefix"; 
$pre=<STDIN>; 
 
$pre = "$pre"; 
for ($i=1; $i <= 2; $i++) { 
 
        $trial = $pre."00".$i; 
        print "$trial \n"; 
 
} 
Code
 
I enter pre for $pre. 
This is the output. 
Code
what is the prefix: pre 
pre 
001  
pre 
002
 
what is need it it to look like this: 
 
Code
pre001 
pre002
 
What am I doing wring?