$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.