package Book::MainConfig; use strict; use vars qw(%c); %c = ( name => "Larry Wall", release => "5.000", comments => "Adding more ways to do the same thing :)", other => "More config values", colors => { foreground => "black", background => "white", }, machines => [qw( primary secondary tertiary )], );