{ my @array = ( 'Hibbs' , 'Daglish' , 'Schwartz' , 'Vroom' ) ; my $string = 'this is a very long string that has a certain number ' . $number . ' of segments.' . "\n" }