0: #!/usr/bin/perl
1: print "What string would you like to twiddle? ";
2: $twiddle = <STDIN>;
3: chomp($twiddle);
4: $length = (length($twiddle)) - 1;
5: my (@twiddled);
6: $twiddled[$length] = $twiddle;
7: $early = $length - 1; #had to change to this
8: $late = $length + 1; #from $early = $length
9: while ($early >= 0) {
10: 	chop($twiddle);
11: 	$twiddled[$early] = $twiddle;
12: 	$twiddled[$late] = $twiddled[$early];
13: 	--$early; #these used to be right after 
14: 	++$late; #chop($twiddle)
15: 	}
16: $playtime = 0;
17: while ($playtime <= $late) {
18: 	print $twiddled[$playtime] . "\n";
19: 	++$playtime;
20: 	}