#!/usr/bin/perl
print "What string would you like to twiddle? ";
$twiddle = <STDIN>;
chomp($twiddle);
$length = (length($twiddle)) - 1;
my (@twiddled);
$twiddled[$length] = $twiddle;
$early = $length - 1; #had to change to this
$late = $length + 1; #from $early = $length
while ($early >= 0) {
	chop($twiddle);
	$twiddled[$early] = $twiddle;
	$twiddled[$late] = $twiddled[$early];
	--$early; #these used to be right after 
	++$late; #chop($twiddle)
	}
$playtime = 0;
while ($playtime <= $late) {
	print $twiddled[$playtime] . "\n";
	++$playtime;
	}