for ($i = 0; $i <= $#sortedNames; $i++) {

##</code><code>##

for my $i (0..$#sortedNames) {

##</code><code>##

for my $name (@sortedNames) {

##</code><code>##

$toOutput = reverse $temp[0];
$toOutput .= $x;
$output = reverse $toOutput;

##</code><code>##

$output = $x . $temp[0];