Okay. I'm a little confused why you assign all these strings to variables with entirely vague var names like $one, $two ... only to assign the lot of them to a list. The following will be a lot easier to maintain/adapt/read:

$roll = "something";
@strings = ( 'This is a string',
             'Here is another',
             "I'm on a $roll",
             BAREWORD,
             'That last one is interpreted as a string',
             'All Done.' );

which can be retrieved using simple $strings[$x] notation.
[download]