How to make code do your work for you

#!c:/perl/bin/perl
# Initialize variable i to 1
$i = 1;
# Start the loop
while ($i < 51)
{
# Set var tr
$tr = "Too KC - Tr No ";
# Concatenate previous tr to the number
$tr .= $i;
# Concatenate to add .mp3 to the end
$tr .= ".mp3";
# Create the file, this is actually open and create if not exist
open(FILE,">$tr");
# must close.. otherwise it’s BAD
close(FILE);
# increment i
$i++;
}

#!c:/perl/bin/perl
 
# `` executes a system command
# this will put output of the dir command into array @dir
 
@dir = `dir`;
 
# start loop and store current element in $line
 
foreach $line (@dir)
{
 
# Split by spaces, since files don’t really
# have any attributes, I have to set the max
# splits to 4 to make sure it doesn’t split
# the filename The s+ is to Turn all multiple
# spaces to single spaces.
 
@temp = split(/s+/,$line,4);
 
# We are only interested in the 4th
# element as that contains the filename.
$name = $temp[3];
 
# Remove trailing new lines
$name =~ s/ +//;
 
# Only get names which include Too KC so we only
# renames those ;]
 
if ($name =~ m/Too KC/)
{
 # Get the number of the file
 @tmp = split(/ /,$name);
 $num = $tmp[5];
 
 # Rename the file
 # Notice " is written as ", is the
 # escape character, It makes sure that "
 # is not interpreted as double quotes
 # which are to be evaluated which might
 # confuse the compiler and most probably
 # (too lazy to check), give you an error
 # when you try to run it ;P
 `ren "$name" "Too Kool Chris - Track Number $num"`;
 
 # Print confirmation, rem if it will
 # irritate you ;]
 print "$name renamed to Too Kool Chris - Track Number $num ";
}
 
# End Loop
}