chomp($index = <STDIN>);
if ($index eq 'Q') { ... }